Скачать: CL | DM;

Копирование файла с сервера   Найти похожие ветки 

← →
SergProger ©   (2005-11-07 01:27) [0]

Привет, уважаемые! Посмотрите пожалуйста на код:

procedure TForm1.Button1Click(Sender: TObject);
var
 InFile, OutFile: TFileStream;
 i, s: Int64;
 b: Byte;
begin
 Button1.Enabled:=False;
 InFile:=TFileStream.Create(Edit1.Text,fmOpenRead);
 OutFile:=TFileStream.Create(Edit2.Text,fmCreate);
 s:=InFile.Size;
 If s <> 0 then begin
   i:=0;
   Repeat
     InFile.Read(b,1);
     OutFile.Write(b,1);
     i:=i+1;
     ProgressBar1.Position:=Round(100/(s/i));
   Until i = s;
 end;
 InFile.Free;
 OutFile.Free;
 ProgressBar1.Position:=0;
 Button1.Enabled:=True;
end;

  Работает он превосходно, но если Edit1.Text будет равен "http://www.mysite.ru/Myfile.file", он будет этот файл в директории программы, и будет иметь вид "ExtractFilePath(ParamStr(0))+Edit1.Text". Как мне поступить?

---

← →
Anatoly Podgoretsky ©   (2005-11-07 08:57) [1]

http://www.mysite.ru/Myfile.file это не файл, а Интернет страница

---

← →
SergProger ©   (2005-11-07 16:59) [2]

Извиняюсь.


> http://www.mysite.ru/Myfile.file


Это не ссылка, а просто пример для исходника.

---

← →
Anatoly Podgoretsky ©   (2005-11-07 17:04) [3]

Сомневаюсь, что файл сможет такое имя иметь, в нем запрещеные символы.

---

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

Скачать: CL | DM;



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