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

Вниз

Передача файлов по сети   Найти похожие ветки 

 
kernel ©   (2006-08-20 14:33) [0]

Господа, не могу найти нормального примера передачи файла от сервера к клиенту по лок. сети. Перепробывал все примеры с Server и Client Sockets и Indy. Дайте кно-нить пример? Буду благодарен :)


 
хм...   (2006-08-20 15:04) [1]

сервер:
procedure Tserver_mod.ServerExecute(AContext: TIdContext);
var
fn2: string;//путь куда сохранять
Astream: TStream;
k: Int64;
begin
    if AContext.Connection.Connected=true then
    begin

      k:=StrToInt(AContext.Connection.IOHandler.ReadLn);

      try
        Astream:=TFileStream.Create(fn2,fmCreate);
        AContext.Connection.IOHandler.ReadStream(AStream,k);
      finally
        AStream.Free;
      end;
    end;
end;

клиент:

var
 fn1: String;//путь до файла
 F: File;
............

     AssignFile(F,fn1);
     Reset(F,1);
     k:=FileSize(F);
     CloseFile(f);
   try
     Module1.Client1.IOHandler.WriteLn(IntToStr(k));
     Module1.Client1.IOHandler.WriteFile(fn1);
   except
   end;

Indy10...


 
kernel ©   (2006-08-21 19:27) [2]

хм..., спасибо. А вот если я хочу сначала отправить string с именем файла, а потом сохранить принятый файл с этим именем. Такое возможно? Вроде бы видел что-то в роде SendText, но так с ним и не разобрался. Кто-нить знает, как?


 
Сергей М. ©   (2006-08-22 08:25) [3]

WriteLn + ReadLn



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

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

Наверх




Память: 0.47 MB
Время: 0.037 c
3-1161885778
Katya
2006-10-26 22:02
2007.01.21
Редактирование времени в DBGrid


11-1144418740
Maloric
2006-04-07 18:05
2007.01.21
ListView высота строк


2-1167906518
igor66613
2007-01-04 13:28
2007.01.21
Кнопка из ДЛЛ


2-1167914494
Sholah_Weras
2007-01-04 15:41
2007.01.21
Новые объекты в TreeView.


6-1156249700
derex
2006-08-22 16:28
2007.01.21
как определить занят ли порт