Динамическое создание IdTCP

[grafgrial]

Собственно сам код, не удается скомпилировать ругается так. Не вижу ошибок.. Посмотрите

program Tor;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Dialogs,
  IdAntiFreezeBase,
  IdAntiFreeze,
  StdCtrls,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  ExtCtrls,
  Math,
  StrUtils,
  ClTools in 'ClTools.pas';

type
TClientThread = class(TThread)
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

  var
  IdTCPC: TIdTCPClient;
  IdTAF: TIdAntiFreeze;

{ TClientThread }

constructor TClientThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  Priority := tpIdle;
  FreeOnTerminate:= true;
end;

function VerificaComando(Recebido, Comando: String; Parcial: boolean): Boolean;
begin
  recebido:= AnsiLowerCase(trim(recebido));
  comando:= AnsiLowerCase(trim(comando));
  if not Parcial then
     result:= AnsiSameText(recebido, comando)
  else result:= pos(comando, recebido) <> 0;
end;

procedure TClientThread.Execute;
begin
  inherited;
  begin
    if not IdTCPC.Connected then
       exit;
    repeat
      cmd.text:= IdTCPC.ReadLn;
      if trim(cmd.text) <> '' then
      begin
      cmd.Text:=copy(cmd.Text,1,pos('#',cmd.Text));
        if VerificaComando(cmd.text,'HW',true) then  ShowMessage('Hello WORLD')
        else if VerificaComando(cmd.text,'H4',true) then  ShowMessage('Hello yyy');
      end;
    until not IdTCPC.Connected;
  end;
  if not Terminated then
     Terminate;
end;

function GetComputerName: string;
 var
   buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
   Size: Cardinal;
 begin
   Size := MAX_COMPUTERNAME_LENGTH + 1;
   Windows.GetComputerName(@buffer, Size);
   Result := StrPas(buffer);
 end;

procedure IdTCPCConnected(Sender: TObject);
begin
IdTCPC.WriteLn('nick= '+GetComputerName);
TClientThread.Create(false);
IdTCPC.WriteLn('соединение с '+GetComputerName+' установилось');
end;

begin

  IdTCPC.Create(nil);
  IdTAF.Create(nil);
 if IdTCPC.Connected then
     IdTCPC.Disconnect
  else
  begin
    IdTCPC.Host := '127.0.0.1';
    IdTCPC.Port := 1024;
    IdTCPC.Connect(5000);
  end;
IdTCPC.Disconnect;
end.

[Пепел Феникса]

если ругается, то как?

[Pein95]

походу так:
http://www.imagepost.ru/?v=uzncoiznl...czfkywefna.JPG

[fenryr]

   IdTCPC.Create(nil);
  IdTAF.Create(nil);

ошибка тут. надо

  idTTC :=  TIdTCPC.Create(nil);
 idTAF := TIdTAF.Create(nil);

[grafgrial]

а для чего снова нужно показывать что создаешь? я ведь в

  var
  IdTCPC: TIdTCPClient;
  IdTAF: TIdAntiFreeze;

уже определил их

[veniside]

> уже определил их

определили указатели, которые равны nil при старте программы.

При вызове IdTCPC.Create(nil); указатель из IdTCPC передаётся в конструктор как ссылка на экземпляр класса, а т.к. он равен nil, виртуальный AfterConstruction() падает.

 idTTC :=  TIdTCPC.Create(nil);

класса TIdTCPC нет в природе, правильный код для создания:

  IdTCPC := TIdTCPClient.Create(nil);
  IdTAF := TIdAntiFreeze.Create(nil);

в этом случае в конструктор класса TIdTCPClient передаётся ссылка на описание этого класса с готовой VMT, формируемой компилятором для каждого класса.

[grafgrial]

да оказалось так, но не выполняется отправка сообщения в procedure IdTCPCConnected(Sender: TObject); , а значит и не создается поток

И как мне сделать так чтобы приложение работало до тех пор пока я его сам не отключу (сейчас у меня запускается и сразу останавливается, попробовал поставить sleep() но это не выход)

[veniside]

так у вас IdTCPCConnected() висит в воздухе, о ней никто, кроме вас самих, не знает, а, значит, никто никогда и не вызовет.

Это ж не вижуал бейсик, где (если не ошибаюсь) достаточно написать процедуру с правильным именем, и она сама привяжется на нужное событие. Тут всё руками.

[grafgrial]

да я это заметил чуть позже, но когда поставил, мне выдает ошибку на клиенте "Terminate Thread Timeout"
Как я понимаю с остановкой потока ??