чтение из едита

← →
BuildeRR (2003-03-31 18:52) [0]

скажите плз как прочитать текст из едита моей прогги?
делаю так:
var new:string;
begin
getdlgitemtext(win,100,Pchar(new),99) ;
SetDlgItemText(win, 16, PChar(new)); //это для проверки
end;
ничего не получается =(((

← →
Intell (2003-03-31 19:07) [1]

Особо не понял чего этим кодом добивался? Читать надо как - пересылать текст компоненту или что?

← →
DVM (2003-03-31 19:16) [2]

а что Edit.text больше не работает?

← →
Songoku (2003-03-31 22:01) [3]

var new:array [0..1024] of char;

← →
BuideRR (2003-03-31 22:33) [4]

2Intell: Надо прочитать что написано в едите с номером 100 окошка win.
2DVM: прога пишется без использования VCL

← →
Diamond Cat (2003-04-01 02:08) [5]

вроде на апишные едиты, нормально срабатывает Getwindowtext

← →
iNew (2003-04-01 07:33) [6]

procedure TForm1.Button1Click(Sender: TObject);
var myhwnd:windows.hwnd;
s:string;
i:Integer;
begin
myhwnd:=FindWindow(nil,PChar("OtherProg"));//OtherProg это имя формы.
myhwnd:=GetWindow(myhWnd,GW_CHILD);//нашли дочерний контрол.
myhwnd:=GetWindow(myhWnd,GW_HWNDNEXT);//нашли следующий дочерний контрол.
setLength(s,sendMessage(myhwnd,WM_GETTEXTLENGTH,0,0)+1);
i:=SendMessage(myhwnd,WM_GETTEXT,wParam(length(s)),lParam(@s[1]));
edit1.Text:=s;
end;
end.

← →
Songoku (2003-04-01 15:58) [7]

function GetWText():String;
var r:LPSTR;
i:Integer;
begin
i:=GetWindowTextLength(GetDlgItem(win,100))+1;
r:=VirtualAlloc(nil, DWORD(i), MEM_COMMIT, PAGE_READWRITE);
GetWindowText(GetDlgItem(win,100),pchar(r),i);
Result:=r;
end;

Скажи если работает!!!!

← →
Intell (2003-04-01 19:31) [8]

По моему всё iNew`ом и Songoku было сказано. Если не подходит, то подробно опиши твою прогу, тогда и подумаем.

← →
DVM (2003-04-01 20:06) [9]

Напиши код, которым создавался Edit.

← →
BuildeRR (2003-04-01 23:45) [10]

всем спасибо, особенно Songoku - сделал

← →
Suntechnic (2003-04-02 01:19) [11]

чтение из едита Найти похожие ветки