Ответ от сервера - Работа с сетью в Delphi - Страница 4

kjb777 · 31.12.2011, 18:45

1."это приложение 2 раза кликаешь по ярлычку и оно запускается"
Ярлык имеет свойства и путь выполнения---просвети путь?
2."сервер стоит у меня."
У вас ПК работает как сервер?
"это для консоли"
Мультфильм "Ёжик в тумане"

ursa1992 · 31.12.2011, 20:46

Да причём тут это ваше....
мне нужно из edit получить текст и если там такова текста нету то выполнять какието действия

kjb777 · 09.01.2012, 19:48

Тебе это надо? Как скопировать текст чужого приложения?
http://www.programmersforum.ru/showthread.php?t=37812

kjb777 · 10.01.2012, 04:00

Чтобы взять содержимое из TEdit пример немного изменил:

procedure TForm1.Button1Click(Sender: TObject);
var
h:DWORD;
i,k:integer;
buffer:array [0..20] of char;
p:PChar;
s:string;

begin

h:=FindWindow(nil,'WTF??? Катлета!');
h:=FindWindowEx(h,0,'TEdit',nil);
p:=StrAlloc(255);
GetWindowText(h,p,255);
s:=p;
Edit1.Text:=s;
i:=SendMessage(h,LB_GETCOUNT,0,0);
SendMessage(h,EM_GETLINE,i,integer( @buffer));
Edit2.Text:=string(buffer);
Label1.Caption:=string(buffer);

for k:=0 to i do
begin
SendMessage(h,LB_GETTEXT,k,integer( @buffer));
ListBox1.Items.Add(string(buffer));
end
end;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Расшифровать ответ сервера	Shouldercannon	Общие вопросы Delphi	19	10.03.2011 09:33
поймать ответ от сервера	miki131	Работа с сетью в Delphi	1	24.12.2009 20:24
Http ответ сервера	lennon	Свободное общение	4	03.08.2009 02:34
Ответ от сервера.	mustang007	Работа с сетью в Delphi	3	23.05.2009 10:33
TClientSocket ответ от сервера	JRcoker	Работа с сетью в Delphi	10	02.10.2008 01:55

31.12.2011, 18:45	#31
kjb777 Пользователь Регистрация: 02.09.2009 Сообщений: 12	1."это приложение 2 раза кликаешь по ярлычку и оно запускается" Ярлык имеет свойства и путь выполнения---просвети путь? 2."сервер стоит у меня." У вас ПК работает как сервер? "это для консоли" Мультфильм "Ёжик в тумане"

31.12.2011, 20:46	#32
ursa1992 Пользователь Регистрация: 25.12.2011 Сообщений: 16	Да причём тут это ваше.... мне нужно из edit получить текст и если там такова текста нету то выполнять какието действия

09.01.2012, 19:48	#33
kjb777 Пользователь Регистрация: 02.09.2009 Сообщений: 12	Тебе это надо? Как скопировать текст чужого приложения? http://www.programmersforum.ru/showthread.php?t=37812

10.01.2012, 04:00	#34
kjb777 Пользователь Регистрация: 02.09.2009 Сообщений: 12	Чтобы взять содержимое из TEdit пример немного изменил: procedure TForm1.Button1Click(Sender: TObject); var h:DWORD; i,k:integer; buffer:array [0..20] of char; p:PChar; s:string; begin h:=FindWindow(nil,'WTF??? Катлета!'); h:=FindWindowEx(h,0,'TEdit',nil); p:=StrAlloc(255); GetWindowText(h,p,255); s:=p; Edit1.Text:=s; i:=SendMessage(h,LB_GETCOUNT,0,0); SendMessage(h,EM_GETLINE,i,integer( @buffer)); Edit2.Text:=string(buffer); Label1.Caption:=string(buffer); for k:=0 to i do begin SendMessage(h,LB_GETTEXT,k,integer( @buffer)); ListBox1.Items.Add(string(buffer)); end end;