SendMessage如何获取text1中的内容，详细一点

看看 下面的好用吗？给你个复杂的，我还有个简单的，感兴趣的话再给你。

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Private Const EM_GETLINECOUNT = &HBA

Private Const EM_GETLINE = &HC4

Private Const EM_LINEFROMCHAR = &HC9

Private Const EM_LINELENGTH = &HC1

Private Const EM_LINEINDEX = &HBB

Sub TB_GetLine(IsText As TextBox, ByVal whichLine As Long, Line As String)

Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long

lc = SendMessage(IsTexthWnd, EM_LINEINDEX, whichLine, ByVal 0&)

length = SendMessage(IsTexthWnd, EM_LINELENGTH, lc, ByVal 0&)

If length > 0 Then

ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte

Call RtlMoveMemory(bArr(0), length, 2) '准备一个存储器，传递消息之前先在存储器的前两个字节填入存储器的长度

Call SendMessage(IsTexthWnd, EM_GETLINE, whichLine, bArr(0))

Call RtlMoveMemory(bArr2(0), bArr(0), length)

Line = StrConv(bArr2, vbUnicode)

Else

Line = ""

End If

End Sub

使用方法：

Call TB_GetLine(Form1Text1, I, S)

S为第I行的文本

没有value也是有value值的,值就是所写内容,你想给textarea里面默认值的话直接写在俩尖括号之间就可以了

<textarea id="aaa">默认值</textarea>

所以获取的时候直接documentgetElementById("aaa")value就好了，或者documentgetElementById("aaa")innerHTML也可以获取到

碰巧我有这么一个函数

有点长，，不过，绝对能用

const py: array[216247] of string = (

{216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +

{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',

{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL' + 'WBTGKJFYXJWZLTBN' +

{217}'CXJJJJZXDTTSQZYC' + 'DXXHGCKBPHFFSSYY' + 'BGMXLPBYLLLHLX',

{218}'SPZMYJHSOJNGHDZQ' + 'YKLGJHXGQZHXQGKE' + 'ZZWYSCSCJXYEYXAD' +

{218}'ZPMDSSMZJZQJYZCD' + 'JEWQJBDZBXGZNZCP' + 'WHKXHQKMWFBPBY',

{219}'DTJZZKQHYLYGXFPT' + 'YJYYZPSZLFCHMQSH' + 'GMXXSXJJSDCSBBQB' +

{219}'EFSJYHXWGZKPYLQB' + 'GLDLCCTNMAYDDKSS' + 'NGYCSGXLYZAYBN',

{220}'PTSDKDYLHGYMYLCX' + 'PYCJNDQJWXQXFYYF' + 'JLEJBZRXCCQWQQSB' +

{220}'ZKYMGPLBMJRQCFLN' + 'YMYQMSQYRBCJTHZT' + 'QFRXQHXMJJCJLX',

{221}'QGJMSHZKBSWYEMYL' + 'TXFSYDSGLYCJQXSJ' + 'NQBSCTYHBFTDCYZD' +

{221}'JWYGHQFRXWCKQKXE' + 'BPTLPXJZSRMEBWHJ' + 'LBJSLYYSMDXLCL',

{222}'QKXLHXJRZJMFQHXH' + 'WYWSBHTRXXGLHQHF' + 'NMCYKLDYXZPWLGGS' +

{222}'MTCFPAJJZYLJTYAN' + 'JGBJPLQGDZYQYAXB' + 'KYSECJSZNSLYZH',

{223}'ZXLZCGHPXZHZNYTD' + 'SBCJKDLZAYFMYDLE' + 'BBGQYZKXGLDNDNYS' +

{223}'KJSHDLYXBCGHXYPK' + 'DQMMZNGMMCLGWZSZ' + 'XZJFZNMLZZTHCS',

{224}'YDBDLLSCDDNLKJYK' + 'JSYCJLKOHQASDKNH' + 'CSGANHDAASHTCPLC' +

{224}'PQYBSDMPJLPCJOQL' + 'CDHJJYSPRCHNKNNL' + 'HLYYQYHWZPTCZG',

{225}'WWMZFFJQQQQYXACL' + 'BHKDJXDGMMYDJXZL' + 'LSYGXGKJRYWZWYCL' +

{225}'ZMSSJZLDBYDCPCXY' + 'HLXCHYZJQSQQAGMN' + 'YXPFRKSSBJLYXY',

{226}'SYGLNSCMHCWWMNZJ' + 'JLXXHCHSYD CTXRY' + 'CYXBYHCSMXJSZNPW' +

{226}'GPXXTAYBGAJCXLYS' + 'DCCWZOCWKCCSBNHC' + 'PDYZNFCYYTYCKX',

{227}'KYBSQKKYTQQXFCWC' + 'HCYKELZQBSQYJQCC' + 'LMTHSYWHMKTLKJLY' +

{227}'CXWHEQQHTQHZPQSQ' + 'SCFYMMDMGBWHWLGS' + 'LLYSDLMLXPTHMJ',

{228}'HWLJZYHZJXHTXJLH' + 'XRSWLWZJCBXMHZQX' + 'SDZPMGFCSGLSXYMJ' +

{228}'SHXPJXWMYQKSMYPL' + 'RTHBXFTPMHYXLCHL' + 'HLZYLXGSSSSTCL',

{229}'SLDCLRPBHZHXYYFH' + 'BBGDMYCNQQWLQHJJ' + 'ZYWJZYEJJDHPBLQX' +

{229}'TQKWHLCHQXAGTLXL' + 'JXMSLXHTZKZJECXJ' + 'CJNMFBYCSFYWYB',

{230}'JZGNYSDZSQYRSLJP' + 'CLPWXSDWEJBJCBCN' + 'AYTWGMPABCLYQPCL' +

{230}'ZXSBNMSGGFNZJJBZ' + 'SFZYNDXHPLQKZCZW' + 'ALSBCCJXJYZHWK',

{231}'YPSGXFZFCDKHJGXD' + 'LQFSGDSLQWZKXTMH' + 'SBGZMJZRGLYJBPML' +

{231}'MSXLZJQQHZSJCZYD' + 'JWBMJKLDDPMJEGXY' + 'HYLXHLQYQHKYCW',

{232}'CJMYYXNATJHYCCXZ' + 'PCQLBZWWYTWBQCML' + 'PMYRJCCCXFPZNZZL' +

{232}'JPLXXYZTZLGDLDCK' + 'LYRLZGQTGJHHGJLJ' + 'AXFGFJZSLCFDQZ',

{233}'LCLGJDJCSNCLLJPJ' + 'QDCCLCJXMYZFTSXG' + 'CGSBRZXJQQCTZHGY' +

{233}'QTJQQLZXJYLYLBCY' + 'AMCSTYLPDJBYREGK' + 'JZYZHLYSZQLZNW',

{234}'CZCLLWJQJJJKDGJZ' + 'OLBBZPPGLGHTGZXY' + 'GHZMYCNQSYCYHBHG' +

{234}'XKAMTXYXNBSKYZZG' + 'JZLQJDFCJXDYGJQJ' + 'JPMGWGJJJPKQSB',

{235}'GBMMCJSSCLPQPDXC' + 'DYYKYWCJDDYYGYWR' + 'HJRTGZNYQLDKLJSZ' +

{235}'ZGZQZJGDYKSHPZMT' + 'LCPWNJAFYZDJCNMW' + 'ESCYGLBTZCGMSS',

{236}'LLYXQSXSBSJSBBGG' + 'GHFJLYPMZJNLYYWD' + 'QSHZXTYYWHMCYHYW' +

{236}'DBXBTLMSYYYFSXJC' + 'SDXXLHJHF SXZQHF' + 'ZMZCZTQCXZXRTT',

{237}'DJHNNYZQQMNQDMMG' + 'LYDXMJGDHCDYZBFF' + 'ALLZTDLTFXMXQZDN' +

{237}'GWQDBDCZJDXBZGSQ' + 'QDDJCMBKZFFXMKDM' + 'DSYYSZCMLJDSYN',

{238}'SPRSKMKMPCKLGDBQ' + 'TFZSWTFGGLYPLLJZ' + 'HGJJGYPZLTCSMCNB' +

{238}'TJBQFKTHBYZGKPBB' + 'YMTDSSXTBNPDKLEY' + 'CJNYCDYKZDDHQH',

{239}'SDZSCTARLLTKZLGE' + 'CLLKJLQJAQNBDKKG' + 'HPJTZQKSECSHALQF' +

{239}'MMGJNLYJBBTMLYZX' + 'DCJPLDLPCQDHZYCB' + 'ZSCZBZMSLJFLKR',

{240}'ZJSNFRGJHXPDHYJY' + 'BZGDLJCSEZGXLBLH' + 'YXTWMABCHECMWYJY' +

{240}'ZLLJJYHLGBDJLSLY' + 'GKDZPZXJYYZLWCXS' + 'ZFGWYYDLYHCLJS',

{241}'CMBJHBLYZLYCBLYD' + 'PDQYSXQZBYTDKYYJ' + 'YYCNRJMPDJGKLCLJ' +

{241}'BCTBJDDBBLBLCZQR' + 'PPXJCGLZCSHLTOLJ' + 'NMDDDLNGKAQHQH',

{242}'JHYKHEZNMSHRP QQ' + 'JCHGMFPRXHJGDYCH' + 'GHLYRZQLCYQJNZSQ' +

{242}'TKQJYMSZSWLCFQQQ' + 'XYFGGYPTQWLMCRNF' + 'KKFSYYLQBMQAMM',

{243}'MYXCTPSHCPTXXZZS' + 'MPHPSHMCLMLDQFYQ' + 'XSZYJDJJZZHQPDSZ' +

{243}'GLSTJBCKBXYQZJSG' + 'PSXQZQZRQTBDKYXZ' + 'KHHGFLBCSMDLDG',

{244}'DZDBLZYYCXNNCSYB' + 'ZBFGLZZXSWMSCCMQ' + 'NJQSBDQSJTXXMBLT' +

{244}'XZCLZSHZCXRQJGJY' + 'LXZFJPHYXZQQYDFQ' + 'JJLZZNZJCDGZYG',

{245}'CTXMZYSCTLKPHTXH' + 'TLBJXJLXSCDQXCBB' + 'TJFQZFSLTJBTKQBX' +

{245}'XJJLJCHCZDBZJDCZ' + 'JDCPRNPQCJPFCZLC' + 'LZXBDMXMPHJSGZ',

{246}'GSZZQLYLWTJPFSYA' + 'SMCJBTZYYCWMYTCS' + 'JJLQCQLWZMALBXYF' +

{246}'BPNLSFHTGJWEJJXX' + 'GLLJSTGSHJQLZFKC' + 'GNNDSZFDEQFHBS',

{247}'AQTGYLBXMMYGSZLD' + 'YDQMJJRGBJTKGDHG' + 'KBLQKBDMBYLXWCXY' +

{247}'TTYBKMRTJZXQJBHL' + 'MHMJJZMQASLDCYXY' + 'QDLQCAFYWYXQHZ'

);

function ChnPy(Value: array of char): Char;

begin

Result := #0;

case Byte(Value[0]) of

176:

case Byte(Value[1]) of

161196: Result := 'A';

197254: Result := 'B';

end; {case}

177:

Result := 'B';

178:

case Byte(Value[1]) of

161192: Result := 'B';

193205: Result := 'C';

206: Result := 'S'; //参

207254: Result := 'C';

end; {case}

179:

Result := 'C';

180:

case Byte(Value[1]) of

161237: Result := 'C';

238254: Result := 'D';

end; {case}

181:

Result := 'D';

182:

case Byte(Value[1]) of

161233: Result := 'D';

234254: Result := 'E';

end; {case}

183:

case Byte(Value[1]) of

161: Result := 'E';

162254: Result := 'F';

end; {case}

184:

case Byte(Value[1]) of

161192: Result := 'F';

193254: Result := 'G';

end; {case}

185:

case Byte(Value[1]) of

161253: Result := 'G';

254: Result := 'H';

end; {case}

186:

Result := 'H';

187:

case Byte(Value[1]) of

161246: Result := 'H';

247254: Result := 'J';

end; {case}

188190:

Result := 'J';

191:

case Byte(Value[1]) of

161165: Result := 'J';

166254: Result := 'K';

end; {case}

192:

case Byte(Value[1]) of

161171: Result := 'K';

172254: Result := 'L';

end; {case}

193:

Result := 'L';

194:

case Byte(Value[1]) of

161231: Result := 'L';

232254: Result := 'M';

end; {case}

195:

Result := 'M';

196:

case Byte(Value[1]) of

161194: Result := 'M';

195254: Result := 'N';

end; {case}

197:

case Byte(Value[1]) of

161181: Result := 'N';

182189: Result := 'O';

190254: Result := 'P';

end; {case}

198:

case Byte(Value[1]) of

161217: Result := 'P';

218254: Result := 'Q';

end; {case}

199:

Result := 'Q';

200:

case Byte(Value[1]) of

161186: Result := 'Q';

187245: Result := 'R';

246254: Result := 'S';

end; {case}

201202:

Result := 'S';

203:

case Byte(Value[1]) of

161249: Result := 'S';

250254: Result := 'T';

end; {case}

204:

Result := 'T';

205:

case Byte(Value[1]) of

161217: Result := 'T';

218254: Result := 'W';

end; {case}

206:

case Byte(Value[1]) of

161243: Result := 'W';

244254: Result := 'X';

end; {case}

207208:

Result := 'X';

209:

case Byte(Value[1]) of

161184: Result := 'X';

185254: Result := 'Y';

end; {case}

210211:

Result := 'Y';

212:

case Byte(Value[1]) of

161208: Result := 'Y';

209254: Result := 'Z';

end; {case}

213215:

Result := 'Z';

216247:

Result := py[Byte(Value[0])][Byte(Value[1]) - 160];

end; {case}

end;

function TitemMagChnToPY(Value: string): string;

var

I, L: Integer;

C: array[01] of char;

R: Char;

begin

Result := '';

L := Length(Value);

I := 1;

while I <= (L - 1) do

begin

if Value[I] < #160 then

begin

Result := Result + Value[I];

Inc(I);

end

else

begin

C[0] := Value[I];

C[1] := Value[I + 1];

R := ChnPY(C);

if r <> #0 then

Result := Result + R;

Inc(I, 2);

end;

end;

if I = L then

Result := Result + Value[L];

end;

以上就是关于SendMessage如何获取text1中的内容，详细一点全部的内容，包括:SendMessage如何获取text1中的内容，详细一点、在textarea里输入文字再怎么在textarea中获取、delphi 如何获取edit的text中的每个汉字首字母呢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！