вопрос

[dv]

[CrazyVirus]

Я делал вот так:

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

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;

[инопланетянен]

интересно к плагинам можно прикручивать собственные звуки, вроде нигде такого не встречал, это очень плохо

[Jenya-Grin]

интересно к плагинам можно прикручивать собственные звуки, вроде нигде такого не встречал, это очень плохо

Можно. Но это уже клиентский плагин будет

[SV]

интересно к плагинам можно прикручивать собственные звуки, вроде нигде такого не встречал, это очень плохо

Смысл каков?

[инопланетянен]

например игру сделать угадай мелодию