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

[FAiver]

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

[Квэнди]

Так создавайте структуру бинда в run-time

[FAiver]

извиняюсь за свою непонятливость... но можно это на примере показать?
поставил bind на 127.0.0.1:81 всёравно не работает

[Квэнди]

В вложении пример работы IdTcpserver И Idtcpclient
написал вроде наглядно, если что- то непонятно будет, спрашивай

[FAiver]

ОГРОМНОЕ СПАСИБО!!!

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

[Квэнди]

Это уже не сюда.

[FAiver]

вот веть.. думал разберусь... а нетдоконца не получается...
разобрался как строки отправлять но немогу отправить TStrings т.е. загоняю диски в TStrings и толи они не отправляются... толи недоходят
вот код:

procedure TForm1.tcpservExecute(AThread: TIdPeerThread);
var inpstr:string;
    ld : DWORD;   
    i : integer;
    Strok:TStrings;
begin
with aThread.Connection do
begin
Strok:=TStrings.Create;
inpstr:=ReadLn();
memo1.Lines.Add(inpstr);
if inpstr='getdisk' then
    begin
    ld := GetLogicalDrives;   
    for i := 0 to 25 do
        begin
        if (ld and (1 shl i)) <> 0 then
        Strok.Add(Char(Ord('A') + i) + ':\');
        end;
    writestrings(Strok);
   Memo1.Lines.AddStrings(strok);
    end
    else writeln('Нет такой команды');
    end;
Strok.Free
end;

[FAiver]

ну вроде стой задачей разобрался но клиент всё равно отказывается принимать Strings т.е. он просто виснет и всё... хотя сервер передаёт! проверил снифером. Клиент принимает вроде данные но както странно...
вобщем вот код сервера:

procedure TForm1.tcpservExecute(AThread: TIdPeerThread);
var inpstr,s:string;
    ld : DWORD;   
    i : integer;
    Strok:TStrings;
begin
with aThread.Connection do
begin
Strok:=TStringList.Create;
inpstr:=trim(ReadLn());
memo1.Lines.Add(inpstr);
if inpstr='getdisk' then
    begin
    ld := GetLogicalDrives;   
    for i := 0 to 25 do
        begin
        if (ld and (1 shl i)) <> 0 then
            begin
            s:=(Char(Ord('A') + i) + ':\');
            Strok.Add(s);
            end;
        end;
   aThread.Connection.WriteStrings(Strok);
   Memo1.Lines.Assign(strok);
    end
    else writeln('Нет такой команды');
    end;
Strok.Free;
end;

а вот клиента:

procedure TForm1.Button3Click(Sender: TObject);
var strings:Tstrings;
begin
strings:=TStringList.Create;
if tcpclient.Connected then
  begin
    strings.Clear;
    tcpclient.WriteLn('getdisk');
    tcpclient.ReadStrings(strings);
    combobox1.Items.AddStrings(strings);
    Memo1.Lines.Assign(strings);
    strings.Free;
  end;
end;

причем что интересно вот отснифанные отправленые данные выглядят как каждая строка отправленная отдельно! а принятые в снифере выглядят так
1-я часть:
A:\
C:\
D:\
ЇЭ
2-я часть:
E:\
F:\
G:\
H:\
I:\
J:\
K:\
L:\
M:\
X:\
х

ПОМОГИТЕ ПОЖАЛУЙСТО!!!! ОЧЕНЬ СРОЧНО!

[ЧИЖ]

К стати почти аналогичная проблема - тока клиент не виснет а орет "Read timeout" - ридтаймаут ставил самый разный - от этого зависит тока через скока заорет

у меня в ответ на строчку от клиента сервер должен отправлять поток - но клиент не то что поток от него принимать не хочет...... (строчку и число вместо потока пробовал - так же)