Страница 1 из 1

вопрос

Добавлено: 04:38, 29.07.2012
dv
:)

Re: Получение информации об общем канале (id:1064)

Добавлено: 11:45, 29.07.2012
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;

Re: вопрос

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

Re: вопрос

Добавлено: 05:10, 14.08.2012
Jenya-Grin
инопланетянен писал(а):интересно к плагинам можно прикручивать собственные звуки, вроде нигде такого не встречал, это очень плохо
Можно. Но это уже клиентский плагин будет

Re: вопрос

Добавлено: 12:19, 14.08.2012
SV
инопланетянен писал(а):интересно к плагинам можно прикручивать собственные звуки, вроде нигде такого не встречал, это очень плохо
Смысл каков?

Re: вопрос

Добавлено: 13:57, 18.08.2012
инопланетянен
например игру сделать угадай мелодию :lol: