[Gips]

Делаю клиентсерверное приложение подскажите пожалуйста
как организовать передачу файлов между ними

[Ozerich]

Передавай файл как строку.
1.Сначала передай имя файла.
2.Прими и создай пустой файл.
3.потом передавай файл как строку.
4.прими строку и запиши её в файл

[The Shadow]

Сервер:

Код:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
S: String;
F: TFileStream;
begin
S:=AThread.Connection.Readln;
F:=TFileStream.Create(S, fmOpenRead);
AThread.Connection.OpenWriteBuffer;
WriteStream(F);
AThread.Connection.CloseWriteBuffer;
AThread.Connection.Disconnect;
end;

Клиент:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
F: TFileStream;
begin
IdTCPClient.Connect;
IdTCPClient.Writeln('имя файла, который хочешь получить');
F:=TFileStream.Create('имя файла, который хочешь получить', fmCreate);
IdTCPClient.ReadStream(F, -1, True);
F.Free;
IdTCPClient.Disconnect;
end;

[SeЯgey]

А можно от клиента к серверу передавать файлы или необходимо прописывать и на обоих программах и клиента и сервер?
если можно то приведите код.
Спасибо!!!
в сервере ошибка появляется
WriteStream(F); не компилирует строку пишет неизвестный тип WriteStream

[PESTS]

Сообщение от SeЯgey

А можно от клиента к серверу передавать файлы или необходимо прописывать и на обоих программах и клиента и сервер?
если можно то приведите код.
Спасибо!!!
в сервере ошибка появляется
WriteStream(F); не компилирует строку пишет неизвестный тип WriteStream

Вот тебе примерчик клиент - сервер
Реализована функция скачивание/закачивания файлов на удалённый сервер,просмотр и завершение процессов на уд. маш.,проводник по удалённой машине, выключение/перезагрузка ну почти готовый троян.кодинг мой