Получение данных от программы (Delphi)

Здесь обсуждаются технические аспекты создания дополнений.
Аватара пользователя
Maximus
Сообщения: 500
Зарегистрирован: 18:59, 04.12.2009
Откуда: Воронеж
Контактная информация:

Получение данных от программы (Delphi)

Сообщение Maximus »

Покажите пожалуйста на примере как получить данные от программы.
Например отправляем запрос

Код: Выделить всё

aDataToSend := fTextToAnsiString(NickName); 
CommFortGetData(dwPluginID, 20, PAnsiChar(aDataToSend), Length(aDataToSend));
А как теперь получить информацию о пользователе?
ОреЛ
Сообщения: 376
Зарегистрирован: 11:18, 11.07.2008
Откуда: Ульяновск
Контактная информация:

Re: Получение данных от программы (Delphi)

Сообщение ОреЛ »

Мой вас совет, почитайте исходники мафии от KGB, там много интересного можно найти
Когда пишете программу, всегда думайте о том, что её может затем поддерживать психопат и насильник, который знает где вы живёте.
— Martin Golding
Cilvay
Сообщения: 816
Зарегистрирован: 14:55, 16.06.2008

Re: Получение данных от программы (Delphi)

Сообщение Cilvay »

p.s. не используйте пример для клиента комфорт на деофи. Лучше переделайте сам серверный вариант примера, итк в клиенском проблема с этой функцией. А так вот пример:
Клиен - получения списка пользователей

Код: Выделить всё

Size := CommFortGetData(dwPluginID, 18, nil, 0, nil, 0); //получаем объем буфера
	SetLength(aData, iSize);
	CommFortGetData(dwPluginID, 18, PAnsiChar(aData), iSize, nil, 0);//заполняем буфер
	iReadOffset := 0;
	ucount := fReadInteger(PAnsiChar(aData), iReadOffset);
  form1.ListBox1.Items.clear;

for I := 0 to ucount - 1 do begin
form1.ListBox1.Items.Add(fReadText(PAnsiChar(aData), iReadOffset));
IP_u := fReadText(PAnsiChar(aData), iReadOffset);
Icon_u := fReadInteger(PAnsiChar(aData), iReadOffset);
end;
Аватара пользователя
Maximus
Сообщения: 500
Зарегистрирован: 18:59, 04.12.2009
Откуда: Воронеж
Контактная информация:

Re: Получение данных от программы (Delphi)

Сообщение Maximus »

Cilvay, спасибо большое.
Ответить