indy....

[Братишка^_^]

Ребят, теперь у меня трабла с инди)
Вообщем, подключение есть. Но не отправляет текст
коды :
Сервер :

  type
  PClient = ^TClient;
  TClient = record
  DNS : String[20];
  Thread : Pointer;
  end;

var
  Form1: TForm1;
  Clients : TThreadList;
  Temp: TStringList;
  ActClient                       : PClient;
  Command,
  TempStr                         :TStringList;
  NewClient                       : PClient;
procedure TForm1.FormCreate(Sender: TObject);
begin
Clients := TThreadList.Create;    
IdTCPServer1.Active := True;     
Label7.Font.Color:=clGreen;
Label7.Caption:='Включен';
Temp:=TStringList.Create();     
                                 end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Temp.Free; 
IdTCPServer1.Active:=false;
end;
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
    GetMem(NewClient, SizeOf(TClient)); 
    NewClient.DNS := AThread.Connection.LocalName; 
    NewClient.Thread :=AThread; 
    AThread.Data:=TObject(NewClient);
    try
    Clients.LockList.Add(NewClient);                                   
    memo1.Lines.Add('['+TimeToStr(Time)+']  есть подключение.');
    ListBox1.AddItem(NewClient.DNS,nil);
    finally
      Clients.UnlockList;
    end;
  end;
procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
  ActClient := PClient(AThread.Data);
    try
  Clients.LockList.Remove(ActClient);                                     
    finally
  Clients.UnlockList;
  end;
    FreeMem(ActClient);
    AThread.Data := nil;
  end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
if not AThread.Terminated and AThread.Connection.Connected then
  begin
    Command:=TStringList.Create;
    TempStr:= TStringList.Create;
    AThread.Connection.ReadStrings(Command);
    ActClient := PClient(AThread.Data);
    Memo1.Lines.Add(Command.Text);
  try
if (Command.Strings[0]='new') and (Command.Count=2) then
begin
  Temp.Clear;
  Temp.add(ActClient.DNS);
  Temp.add(Command.Strings[1]);
    TempStr.add('new');
    TempStr.add('ok');
  AThread.Connection.WriteStrings(TempStr,true);
end;
if (Command.Strings[0]='get') and (Command.Count=1) then
begin
  AThread.Connection.WriteStrings(Temp,true);
  end;
    Except
    Command.Free;
    TempStr.Free;
      end;
         end;

if (Command.Strings[0]='loginpassword') then
begin
        ShowMessage('DAAAAAAAAAAAAAAAAAAAAA');
end;

      end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IdTCPServer1.Active:=true;
Label7.Font.Color:=clGreen;
Label7.Caption:='Включен';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
IdTCPServer1.Active:=false;
Label7.Font.Color:=clRed;
Label7.Caption:='Выключен';
end;
end.

Клиент :

var
  Form1: TForm1;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
IdTCPClient1.Connect(); 
except
showmessage('Сервер не доступен.'+#13+'Возможно, что у вас не соединения с интернетом'+#13+'Либо сервер не доступен для подключения'); 
end;
end;  
procedure TForm1.Button2Click(Sender: TObject);
begin
IdTCPClient1.Write(edit1.Text+edit2.text);
end;
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
  var Temp:TStringList;
  Begin
    Temp:=TStringList.Create();
    while IdTCPClient1.Connected do
  begin
    IdTCPClient1.ReadStrings(Temp); 
      memo2.Lines.AddStrings(Temp);
        Temp.Clear;
      end;
  end;
procedure TForm1.Button3Click(Sender: TObject);
begin
IdTCPClient1.Disconnect;
end;
end.

[Братишка^_^]

Код урезан! Из-за ограничения
Помогите пожалуйста ,почему не приходят сообщения от клиента?

[Slym]

Чем тебе мой код не по нраву?
тут ты нафигачил не лучше чем прошлый раз...
1. Отучайся от глобальных переменных! тем более в многопоточных приложениях
2. Нафега ты плодишь сущности в виде NewClient а тем более их список Clients? вся инфа доступна и без нее
3. ты хоть протокол опиши что за ню и гет

ты мой код вообще смотрел? сравни никаких списков и одна глобальная переменная Form1
косяк в моем сервере - это отдача сообщений по запросу, а не сразу, и однострочные месаги...
но т.к. написано для обучательных целей простительно.
тебе может клиента к моему серверу накатать?


у тебя клиент зависает в IdTCPClient1Connected ты его из цикла сафсем не выпускаешь

[Братишка^_^]

Я твой код толком понять не смог)