Так и подумал... Приходится делать отладку через тыкание 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;
Тобишь система его никак не анализирует, может быть любой текст. Спасибо, к подобному выводу пришел методом тыкаMaxim Mirgorodsky писал(а):В формате текст().