| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование файла с сервера [D7, WinME]
SergProger © (2005-11-07 01:27:00)Привет, уважаемые! Посмотрите пожалуйста на код:
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 17:04:00) [1]Сомневаюсь, что файл сможет такое имя иметь, в нем запрещеные символы.
SergProger (2005-11-07 16:59:00) [2]Извиняюсь.
> http://www.mysite.ru/Myfile.file
Это не ссылка, а просто пример для исходника.
Anatoly Podgoretsky (2005-11-07 08:57:00) [3]http://www.mysite.ru/Myfile.fileэто не файл, а Интернет страница
| |
