Например отправляем запрос
Код: Выделить всё
aDataToSend := fTextToAnsiString(NickName);
CommFortGetData(dwPluginID, 20, PAnsiChar(aDataToSend), Length(aDataToSend));
Код: Выделить всё
aDataToSend := fTextToAnsiString(NickName);
CommFortGetData(dwPluginID, 20, PAnsiChar(aDataToSend), Length(aDataToSend));
Код: Выделить всё
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;