对delphi高级编程不熟悉的人慎入(30分)

我爱PASCAL · 2006-04-26

SendMessage(hEdit, EM_GETLINE, 0, 0); SendMessage(hEdit, EM_GETLINECOUNT, 0, 0); 这两个函数怎么得到返回值。

我爱PASCAL · 2006-04-26

hEdit是编辑框的句柄， EM_GETLINE是得到hEdit一行的消息。 EM_GETLINECOUNT是得到hEdit行数的消息。 i:=SendMessage(hEdit, EM_GETLINECOUNT, 0, 0); i返回1,请问1表示返回成功还是返回一行.

江远 · 2006-04-26

好象里面有个参数(好象是最后一个)是返回值

我爱PASCAL · 2006-04-26

SendMessage(hEdit, EM_GETLINECOUNT, i, 0); SendMessage(hEdit, EM_GETLINECOUNT, 0, i); 都试过。 getwindowtext也试过

13708782004 · 2006-04-26

去死把

herozzl · 2006-04-26

欢迎加入DELPHI技术交流群：23889386

总有爱 · 2006-04-26

对delphi高级编程不熟悉的人慎入 ??????????

jeffrey_s · 2006-04-27

function TMemoStrings.GetCount: Integer; begin  Result := 0;  if Memo.HandleAllocated or (Memo.WindowText <> nil) then  begin    Result := SendMessage(Memo.Handle, EM_GETLINECOUNT, 0, 0);    if SendMessage(Memo.Handle, EM_LINELENGTH, SendMessage(Memo.Handle,      EM_LINEINDEX, Result - 1, 0), 0) = 0 then Dec(Result);  end; end; function TMemoStrings.Get(Index: Integer): string; var  Text: array[0..4095] of Char; begin  Word((@Text)^) := SizeOf(Text);  SetString(Result, Text, SendMessage(Memo.Handle, EM_GETLINE, Index,    Longint(@Text))); end; 第一个作用是返回行数，最后一行能为空。 第二个是得到所在行的长度，输出字符到Text中。

bsjl · 2006-04-27

对delphi高级编程不熟悉的人慎入 ??????????

crazyman2006 · 2006-04-27

老兄，如果你对消息不熟悉，就不要用这么惹眼的标题。 -------------------------- 随便推销一下： Delphi编程天地：18600851

寻路 · 2006-04-27

procedure TForm1.btn1Click(Sender: TObject); var  I: Integer;  Count: Integer;  Len: Integer;  Text: PChar; begin  Count := SendMessage(mmo1.Handle, EM_GETLINECOUNT, 0, 0);  for I := 0 to Count - 1 do  begin    Len := SendMessage(mmo1.Handle, EM_LINELENGTH, SendMessage(mmo1.Handle, EM_LINEINDEX, I, 0), 0) + 1;    GetMem(Text, Len);    SendMessage(mmo1.Handle, EM_GETLINE, I, Integer(Text));    Text[Len - 1] := #0;    ShowMessage(string(Text));    FreeMem(Text, Len);  end; end;

Axe · 2006-04-27

hoho,这就叫做高级编程?

baiduan · 2006-04-27

sendmessage 返回值依赖发送的具体信息， EM_GETLINECOUNT 返回值代表行数 EM_GETLINE  返回值代表结果字节串的字节数 //这种问题不会就去google就可以了

我爱PASCAL · 2006-04-27

试了jeffrey_s的函数,TMemoStrings.GetCount能够返回值, TMemoStrings.Get(Index: Integer)返回为空. 寻路的函数返回的是乱码.

寻路 · 2006-04-28

不太可能是乱码，我在我的机器上面做过测试了，请问你是对什么组件取字符串？

我爱PASCAL · 2006-04-28

qq的聊天窗口,richedit.

我爱PASCAL · 2006-04-28

就是qq聊天的录入窗口. 如果要得到录入窗口上面哪个显示聊天对话记录的窗口的内容我觉得更困难.

寻路 · 2006-04-29

简单的写了一下,应该是可以的,你先试试看: procedure GetControlText(hWnd: THandle); var  ArrText: array [0..1024] of Char; begin  SendMessage(hWnd, WM_GETTEXT, 1024, LongInt(@ArrText));  ShowMessage(StrPas(ArrText)); end; function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; stdcall; var  ClassName:     array [0..255] of Char; begin  FillChar(ClassName, 256, 0);  GetClassName(hWnd, ClassName, 255);  if (StrPas(ClassName) = 'RichEdit20A') then  begin    GetControlText(hWnd);    Result := False;  end;  Result := True; end; procedure TForm1.btn1Click(Sender: TObject); var  Hwnd: THandle; begin  Hwnd := FindWindow(nil, '与 ★f.f╃ 交谈中');  if Hwnd <> 0 then EnumChildWindows(Hwnd, @EnumerateChildWindows, 0); end;

我爱PASCAL · 2006-04-29

试了寻路的方法，完全成功，谢谢你，你帮我解决了一个大问题。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3423984 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3419735 我这两个贴子没人回答，请你来拿分，请笑纳。

寻路 · 2006-04-30

呵呵，我可是个穷富翁，有分就不客气了！ 我觉得还有一个问题，不知道你是怎么处理的：你怎么寻找现有的所有聊天窗口呢？

对delphi高级编程不熟悉的人慎入(30分)

我爱PASCAL

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

江远

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

13708782004

Unregistered / Unconfirmed

herozzl

Unregistered / Unconfirmed

总有爱

Unregistered / Unconfirmed

jeffrey_s

Unregistered / Unconfirmed

bsjl

Unregistered / Unconfirmed

crazyman2006

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

Axe

Unregistered / Unconfirmed

baiduan

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

Similar threads