Форум: "WinAPI";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Внизчтение из едита Найти похожие ветки
← →
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]>BuildeRR ©
Спасибо это хорошо, только VirtualFree не забудь вызвать.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c