Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.08;
Скачать: CL | DM;

Вниз

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

 
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]

>


 
SemFLY ©   (2002-04-30 18:45) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2002.07.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-23470
Alex_R
2002-06-14 16:21
2002.07.08
Как увеличить timeout в ADO


1-23582
Archont
2002-06-27 10:04
2002.07.08
ProgressBar


3-23525
Nicolas_
2002-06-18 12:41
2002.07.08
Как заполнить combobox типами полей?


1-23601
Paco
2002-06-24 13:37
2002.07.08
Как избавиться от borlndmm.dll, cc3250mt.dll и bpl-вайлов


1-23602
Leny
2002-06-25 08:46
2002.07.08
Вставка даты