Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Передать файл по сети между двух программ [D7, WinXP]


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

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

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


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

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


Змей   (2005-03-19 21:47:00) [2]

ну вот смотри с использованием компонентов 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-19 20:57:00) [3]

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


Змей   (2005-03-19 20:17:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо