Работа через Soket

stalker12555 · Регистрация: 15.07.2013

Author24 — интернет-сервис помощи студентам

Работаю через TSoket и мне нужно получить список фалов и папок на удалённом ПК но у меня не получается.
Сервер отправляет запрос клиенту и клиент выполняет следующее:

Delphi

//////////////
  cmd := Socket.ReceiveText;
 
  if cmd = 'view' then
  begin
    FindFileInFolder('c:\', '*.*');
  end;
///////////////
 
procedure TForm1.FindFileInFolder(path, ext: string);
var
  SR: TSearchRec;
  Res, old: Integer;
begin
  Res := FindFirst(path + ext, faAnyFile, SR);
  while Res = 0 do
  begin
    tsrtext.Lines.Add(Sr.Name);
    Application.ProcessMessages;
    Res := FindNext(SR);
  end;
  FindClose(SR);
  for old := 1 to tsrtext.lines.count - 1 do
  begin
    ss.Socket.SendText('view: ' + tsrtext.Lines.Strings[old]);
    Application.ProcessMessages;
  end;
end;
//////////////////////

tsrtext это Memo

В ответ мне не чего не приходит...

-Как это исправить?
-Есть-ли другой способ?

@mss · 27.09.2013, 23:40

Про встроенный в Делфи отладчик, дающий возможность самостоятельно найти алгоритмические ошибки в своем коде, ты конечно же слыхом не слыхивал ..

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.09.2013, 23:40	2
	Про встроенный в Делфи отладчик, дающий возможность самостоятельно найти алгоритмические ошибки в своем коде, ты конечно же слыхом не слыхивал .. 1

Опции темы