Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

Suntechnic (2003-04-02 01:19:00) [1]
>BuildeRR ©
Спасибо это хорошо, только VirtualFree не забудь вызвать.

BuildeRR (2003-04-01 23:45:00) [2]
всем спасибо, особенно Songoku - сделал

DVM (2003-04-01 20:06:00) [3]
Напиши код, которым создавался Edit.

Intell (2003-04-01 19:31:00) [4]
По моему всё iNew`ом и Songoku было сказано. Если не подходит, то подробно опиши твою прогу, тогда и подумаем.

Songoku (2003-04-01 15:58:00) [5]
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;

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

iNew (2003-04-01 07:33:00) [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.

Diamond Cat (2003-04-01 02:08:00) [7]
вроде на апишные едиты, нормально срабатывает Getwindowtext

BuideRR (2003-03-31 22:33:00) [8]
2Intell: Надо прочитать что написано в едите с номером 100 окошка win.
2DVM: прога пишется без использования VCL

Songoku (2003-03-31 22:01:00) [9]
var new:array [0..1024] of char;

DVM (2003-03-31 19:16:00) [10]
а что Edit.text больше не работает?

Intell (2003-03-31 19:07:00) [11]
Особо не понял чего этим кодом добивался? Читать надо как - пересылать текст компоненту или что?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »