Так и подумал... Приходится делать отладку через тыкание ShowMessage или Memo Lines Add...DIGGER писал(а):Чат защищён от отладки. [удалено как офтопик]
От администрации никаких советов, как делать отладку плагинов, нет!

Так и подумал... Приходится делать отладку через тыкание ShowMessage или Memo Lines Add...DIGGER писал(а):Чат защищён от отладки. [удалено как офтопик]
От администрации никаких советов, как делать отладку плагинов, нет!

Код: Выделить всё
function PersonalMsg(const User, Text : String): TStringStream;
var I : Integer;
begin
  Result := TStringStream.Create('');
  i := length(User);
  Result.Write(I, 4);
  Result.WriteString(User);
  i := length(text);
  Result.Write(I, 4);
  Result.WriteString(text);
end;
procedure TForm1.Button2Click(Sender: TObject);
var msg: TStringStream;
begin
msg:= PersonalMsg('Cilvay','asdasdasdasd tezxt');
CommFortProcess(dwPluginID, 70 , PANSIchar(msg.DataString),msg.InstanceSize);
end;Отправить личное сообщение: число(важность)+текст(имя пользователя)+текст(сообщение)cilvay писал(а):Покажите пожалуйста пример (Желательно, делфи)
Как в клиенском плагине отправить личное сообщение пользователю?
Я делаю так:Код: Выделить всё
function PersonalMsg(const User, Text : String): TStringStream; var I : Integer; begin Result := TStringStream.Create(''); i := length(User); Result.Write(I, 4); Result.WriteString(User); i := length(text); Result.Write(I, 4); Result.WriteString(text); end; procedure TForm1.Button2Click(Sender: TObject); var msg: TStringStream; begin msg:= PersonalMsg('Cilvay','asdasdasdasd tezxt'); CommFortProcess(dwPluginID, 70 , PANSIchar(msg.DataString),msg.InstanceSize); end;
 msg.Free();
 msg.Free(); .
.Тобишь система его никак не анализирует, может быть любой текст. Спасибо, к подобному выводу пришел методом тыкаMaxim Mirgorodsky писал(а):В формате текст().
 .
 .