Работ через TSoket

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

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

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

Delphi

//////////////
  cmd := Socket.ReceiveText;
 
  if cmd = 'view' then
  begin
    tsrtext.Clear;
    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

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

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

	20.09.2013, 19:28