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 писал(а):В формате текст().