Форум: "Сети";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.057 c