вопрос
Добавлено: 04:38, 29.07.2012
Код: Выделить всё
procedure fWriteStringToBuf(var Buf: AnsiString; const Str: string);
var
BufLen, StrLen: integer;
begin
BufLen:=Length(Buf);
StrLen:=Length(Str);
SetLength(Buf, BufLen+4+sLen*2);
Move(StrLen, Buf[BufLen+1], 4);
if StrLen>0 then
Move(Str[1], Buf[BufLen+5], StrLen*2);
end;
procedure CommFortGetDataBufOut(ID: integer; var OutBuffer, InBuffer: AnsiString);
var
iLen: integer;
begin
SetLength(InBuffer, 0);
iLen:=CommFortGetData(dwPluginID, ID, nil, 0, @OutBuffer[1], Length(OutBuffer));
if iLen>0 then
begin
SetLength(InBuffer, iLen);
CommFortGetData(dwPluginID, ID, @InBuffer[1], iLen, @OutBuffer[1], Length(OutBuffer));
end;
end;
// ...
var
OutBuffer, InBuffer: AnsiString;
// ...
fWriteStringToBuf(OutBuffer, 'main');
CommFortGetDataBufOut(1064, OutBuffer, InBuffer);
if Length(InBuffer)>0 then
begin
// Разбор данных
// ...
end;
Можно. Но это уже клиентский плагин будетинопланетянен писал(а):интересно к плагинам можно прикручивать собственные звуки, вроде нигде такого не встречал, это очень плохо
Смысл каков?инопланетянен писал(а):интересно к плагинам можно прикручивать собственные звуки, вроде нигде такого не встречал, это очень плохо