CommFort

ОреЛ писал(а):Мне правда никто не сможет помочь?
http://www.commfort.com/ru/forum/viewto ... 607#p48607
Мне очень надо

ОреЛ писал(а): int size = VirtualUser.Length() * 2 + 4;
int len = VirtualUser.Length() * 2;
BYTE * bOutBuffer = new BYTE[size];
memcpy(bOutBuffer, &len, 4);
memcpy(bOutBuffer + 4, VirtualUser.c_str(), len * 2);
int dwInBufferSize = (*CommFortGetData)(dwPluginID, 1080, 0, 0, bOutBuffer, size);
BYTE * bInBuffer = new BYTE[dwInBufferSize];
(*CommFortGetData)(dwPluginID, 1080, bInBuffer, dwInBufferSize, bOutBuffer, size);
int countChannels;
memcpy(&countChannels, bInBuffer, 4);

@serg@ писал(а):Указывать надо не количество байт а количество символов.

ОреЛ писал(а):О чем вы? Сначала копируется 4 байт, содержащее количество символов в текста, потом копируется сам текст.
Жду еще комментариев.

int len = VirtualUser.Length() * 2

ОреЛ писал(а):Скажите, что будет, если виртуальный пользователя забанен, например, на отправку сообщений в канал, а он будет пытаться совершить это действие?

@serg@ писал(а):Maxim Mirgorodsky, очень хотелось-бы видеть событие (серверное), информирующее о появлении нового объявления (хотя бы только с его id). И вообще я немного не понял. на клиентской стороне список объявлений храниться где-то в файле или получается при каждом подключении к серверу? Ведь данные всёравно получаются клиентом при появлении нового объявлении, почемубы получение данных плагином (в событии) не совместить с событие получения данных клиентом, без возможности дополнительного запроса со списком/содержанием.

ZigZagkms писал(а):Вопрос к разработчикам сервера. Чем грозит использование импортируемых функций в дочерних потоках, и почему?

@serg@ писал(а):ну как на дельфи реализовать я не могу подсказать, если работаешь с формами, то там есть специальный компонент, если без форм то постов 10 назад был пример как это реализовать на с++, думаю можно легко переписать под твои нужды.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  bInBuffer : PAnsiChar; aDataToSend : AnsiString;
  iReadOffset:integer;
begin
    aDataToSend := fTextToAnsiString('user')+  
    fIntegerToAnsiString(0)+  
    fTextToAnsiString('main')+
    fTextToAnsiString('Всё норм'); 
    CommFortProcess(dwPluginID, 1020, PAnsiChar(aDataToSend), Length(aDataToSend));
end;

~LONSDALE~ писал(а): Нечего не получаеться,может что то я упустил. В OnTimer написал следуёщий код:

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
  bInBuffer : PAnsiChar; aDataToSend : AnsiString;
  iReadOffset:integer;
begin
    aDataToSend := fTextToAnsiString('user')+  
    fIntegerToAnsiString(0)+  
    fTextToAnsiString('main')+
    fTextToAnsiString('Всё норм'); 
    CommFortProcess(dwPluginID, 1020, PAnsiChar(aDataToSend), Length(aDataToSend));
end;

вылетают ошибки при наступлении этого события. Что я упустил?

~LONSDALE~ писал(а):А что там нужно коннретнее можно?
Кто может помочь с кодом на делфи очень буду благодарен.

Текстовые данные в кодировке UTF16. Представляют из себя число(количество символов) + сам текст. Каждый символ содержит 2 байта, то есть занимаемая самим текстом память в байтах равна числу символов умноженному на 2.

...+fIntegerToAnsiString(StrLen('main'))+fTextToAnsiString('main')+
fIntegertToAnsiString(StrLen('Всё норм'))+fTextToAnsiString('Всё норм')

Maxim Mirgorodsky писал(а):Изменения по системе плагинов в клиенте 5.03:
...
Документация по плагинам обновлена.
...