Удалённый поиск файлов.

← →
SemFLY © (2002-04-30 03:46) [0]

Вопрос, как это лучше сделать ?
Вот мой вариант, может что-то в нём исправить.

Задача: найденные Сервером имена файлов на компьютере передать Клиенту.
Функция поиска находится в отдельном модуле Unit2.
Выглядит она так:
………
// тут глобальные переменные для то чтобы использовать их в Unit1 var DataSearch : TMemoryStream; FileFound : Boolean; implementation …… …… procedure TFF(FuncParam : String); var FindResult : Integer; Buffer : array[0 .. 9] of Char; begin FileFound := false; FindResult := FindFirst(FuncParam, faAnyFile+FaHidden+faSysFile+faReadOnly, SearchRec); TMemoryStream.Create; if FindResult = 0 then begin FileFound := True; while FindResult = 0 do begin FindResult := FindNext(SearchRec); ClipBoard.GetTextBuf(PChar(SearchRec.Name),SearchRec.Size); DataSearch.ReadBuffer(Buffer,SearchRec.Size); DataSearch.SaveToStream(DataSearch); end; DataSearch.Free; FindClose(SearchRec); end; end;
= = =

Серверная часть TServerSocket (модуль Unit1)
Найдя имена файлов посылаем их клиенту
begin If FileFound = True then begin ServerSocket1.Socket.Connections[0].SendText(‘Файлы найдены !’); ServerSocket1.Socket.Connections[0].SendStream(DataSearch); End Else ServerSocket1.Socket.Connections[0].SendText(‘Файлы не найдены !’) end;

Клиентская часть TClientSocket
Принимаем поток с именами файлов.

Тут вопрос. Как принять поток с имена файлов и поместить имена в Memo.

===============================================================

Надеюсь я объснил понятно, что мне требуется. :)

Спасибо !

← →
SemFLY © (2002-04-30 12:14) [1]

Мастера может хоть, что-то подскажете, как мне это осуществить !

Удалённый поиск файлов. Найти похожие ветки