Копирование файла с сервера

← →
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

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

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

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