Страница 1 из 1
Получение данных от программы (Delphi)
Добавлено: 21:35, 10.08.2011
Maximus
Покажите пожалуйста на примере как получить данные от программы.
Например отправляем запрос
Код: Выделить всё
aDataToSend := fTextToAnsiString(NickName);
CommFortGetData(dwPluginID, 20, PAnsiChar(aDataToSend), Length(aDataToSend));
А как теперь получить информацию о пользователе?
Re: Получение данных от программы (Delphi)
Добавлено: 09:37, 11.08.2011
ОреЛ
Мой вас совет, почитайте исходники мафии от KGB, там много интересного можно найти
Re: Получение данных от программы (Delphi)
Добавлено: 10:41, 11.08.2011
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;
Re: Получение данных от программы (Delphi)
Добавлено: 23:36, 11.08.2011
Maximus
Cilvay, спасибо большое.