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

Вниз

Передать файл по сети между двух программ   Найти похожие ветки 

 
Виталик ©   (2005-03-19 13:59) [0]

Мастера, подскажите, пожалуйста, как можно передать файлы по сети между двумя программами (aka Client-Server). Или хотя бы скажите, какой компонент использовать.

Заранее спасибо.


 
Змей ©   (2005-03-19 20:17) [1]

ну можно используя Socket"ы просто передаешь клиенту или серваку путь и качаешь:)


 
Виталик ©   (2005-03-19 20:57) [2]

Нет. Мне бы лучше передать файл через сокет в потоке. Так как расшаривание ресурсов неприемлемо.


 
Змей ©   (2005-03-19 21:47) [3]

ну вот смотри с использованием компонентов ClientSOcket и ServerSocket

button1.click

  выбираешь путь опендиалогом или еще чемнибудь ну допустим он у нас будет в edit1.text("С:\1.text") лепишь в ServerSocket1ClientRead
var
fs:Tfilestream;
data:tmemorystream;
begin
fs:=tfilestream.create(edit1.text,fmopenread);
try
fs.position:=0;//вот и грузишь файлик в поток
socket.sendtext("size:"+inttostr(fs.size)+#0); //отсылаем длину файла с #0-чтобы отделить длину от данных самого файла
Socket.sendstream(fs);//и отсылаем
finally
end;


 
Виталик ©   (2005-03-26 22:40) [4]

Спасибо!!! Агромное ;-)



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

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

Наверх




Память: 0.47 MB
Время: 0.057 c
4-1114153640
needle
2005-04-22 11:07
2005.06.14
как определить более подробный тип диска


1-1117422055
Владимир
2005-05-30 07:00
2005.06.14
RichEdit


1-1117025094
john_mag
2005-05-25 16:44
2005.06.14
работа со StringGrid


14-1117189304
Narikmen
2005-05-27 14:21
2005.06.14
Skin в IniFile


14-1117040343
kilonet
2005-05-25 20:59
2005.06.14
какая это версия delphi?