CommFort

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

///
function PluginInit (dwThisPluginID:DWORD; sPluginInfo:TsPluginInfo; func1:Pointer; func2:Pointer):DWORD;stdcall;
begin
	dwPluginID:=dwThisPluginID;

  sPluginInfo.strPluginVersion:='My Plugin v 4.40'+#0;
  sPluginInfo.strPluginDescription:='Test plugin'+#0;
  sPluginInfo.strPluginName:='New my Delphi 7 bot'+#0;

  @CommFortProcess:=func1;
  @CommFortGetData:=func2;


  if CreateMainForm = False then begin
     Form1 := TForm1.Create(Application);
     CreateMainForm:=True; // это флаг для "PluginTerminate" где проверяется форма на создание
                                     // и в случае если форма была создана то она удаляеться.
     Form1.Show; // отобразить //
  end;

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

begin
  if not BActive then          // когда приходит первый пакет
    begin
      UDP1.RemoteHost:=FromIP;   // определяем куда будем отправлять
      UDP1.RemotePort:=Port;     // и на какой порт
      BActive:=true;             // и больше сюда не заходим
      [b]memo1.lines.add('Готов к работе!'+UDP1.RemoteHost); //фиксируем это событие в мемо[/b]
    end;

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

if ln(copy(Data,1,4))=5 then // если первое число 5, значит это сообщение в чате
  begin

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

memo1.Lines.Add(inttostr(ln(copy(Data,1,4))));