Многопоточный сервер

[FAiver]

Всем привет!
Мне необходимо написать прогу многопоточный сервер и клиент к нему, по запросу клиента сервер должен передовать на клиент устройства(т.е. диски А С D) и уметь показывать файлы и папки на дисках.
Вопрос на чём лучше делать? я так понимаю на Indy но у меня мало инфы на эту тему подскажите где можно почитать. ну или напишите пример многопаточного сервера... с клиентом я думаю разберусь.
За раннее спасибо!

[mihali4]

у меня мало инфы на эту тему подскажите где можно почитать.
За раннее спасибо!

Вся нужная литература, как неоднократно указывалось, находится на сайте клуба форума (ссылка в низу каждой страницы).
Ну, если "за раннее спасибо", то за позднее - пожалуйста...

[FAiver]

Если ктонибуть в этом понимает помогите написать это приложение т.к. у меня это курсовик который я должен защищять в следующюю пятницу! а до пятницы у меня ещё каждый день идут экзамены
вот немного накидал код... но походу с ошибками... помогите их исправить что я не так делаю? вот код
сервер:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    IdTCPServer1: TIdTCPServer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path +'*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         FileList.Add(SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;


procedure TForm1.Button1Click(Sender: TObject);   
var   
ld : DWORD;   
i : integer;   
begin   
ld := GetLogicalDrives;   
for i := 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then   
ComboBox1.Items.Add(Char(Ord('A') + i) + ':\');
end;
end;   

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
ListFileDir(ComboBox1.Text, Memo1.Lines.Create);
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var lcmd:string;
begin
with AThread.Connection do
begin
   lcmd:=Trim(Readln);
   if SameText(LCmd, 'QUIT') then
begin
WriteLn('200 Good bye');
Disconnect;
end
else if SameText(LCmd, 'DATE') then
begin
WriteLn('200 ' + DateToStr(Date));
end
else
begin
WriteLn('400 Unknown command');
end;
end;
end;

end.

Клиент:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
while IdTCPClient1.Connected do
begin
    IdTCPClient1.Host:=Edit1.Text;
    IdTCPClient1.Port:=81;
    IdTCPClient1.Connect(100);
    try
    IdTCPClient1.Write('Data');
    IdTCPClient1.ReadLn(s);
    Label1.Caption:=s;
    finally;
    IdTCPClient1.Disconnect;
    end;
end;
end;

end.

но что то он не работает.... ПОМАГИТЕ ПЛИЗ!!!

[Квэнди]

А что не работает кроме отсутствия в сервере обработки для комманды которую вы отправляете ?

[FAiver]

оно не работает!!!
покажите мне пример сервера и клиента к нему что бы клиент конектился к серверу отправлял туду строчку а сервер в ответ отправлял другую строчку.

[Квэнди]

"оно не работает!!!"
под этим что подразумевается ?
так и будем из вас по слову вытягивать ?

[FAiver]

совсем не работает... пробовал в клиенте написать в событии onconnect Showmessage т.е. чты бы викидывалось сообщение когда клиент конектится но ничево не происходит... т.е. получается что клиент не конектится... или сервер не работает... непойму в чём именно проблема? порт на клиенте и на сервере поставил 81.
Если можете то покажите мне на примере отправку данных на сервер и ответ сервера клиенту. ПОЖАЛУЙСТА!!!

[Квэнди]

Скидывайте ваш проект, подправлю, отправлю.

[FAiver]

зараннее спасибо!
скачать проэкт можно от сюда http://mob-mag.fatal.ru/indy_cs.rar

[Квэнди]

У вас сервер собственно ничего не биндит, что же в ыхотели ?
свойство bindings отвечает за то какой локальный IP и какой порт будет "слушать" сервер.