Форум: "Сети";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
ВнизПередать файл по сети между двух программ Найти похожие ветки
← →
Виталик © (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.048 c