Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Скачивание jpg [D6]

Artemon1 © (2004-07-15 23:49:00)
Здравствуйте, делфяне.
Помогите мне, plz... Проблема такова: я использую TNMHTTP для скачивания файлов, htm странички скачивает без проблем, а вот jpeg не хочет(скачивает только 8 kb). По примеру на этом сайте тоже не работает для jpg.

DemonRus (2004-08-02 16:25:00) [1]
>Arpad

А не подскажешь как загрузить файл на веб-сервер, используя Indy через HTTP?

Arpad (2004-07-31 12:02:00) [2]
Ja seichas vizhu sto hotel s NMHttp
vot reshenie:

Function NMHttp_GetURLToFile(
NMHttp : TNMHttp;
SourceURL : String;
DestFile : String;
Button_Stop : TSpeedButton
): Boolean;
begin
Result :=
NMHttp_URLToFileDetail(
NMHttp,
SourceURL,
'',
DestFile,
Button_Stop
);
end;

Function NMHttp_URLToFileDetail(
NMHttp : TNMHttp;
SourceURL : String;
Parameters : String;
DestFile : String;
Button_Stop : TSpeedButton
): Boolean;
Var
BodyFile_SL : TStringList;
BodyFile : String;
begin
Try
Button_Stop.Enabled := True;
BodyFile := DestFile;
NMHttp.InputFileMode := False;
NMHttp.OutputFileMode := False;
NMHttp.Header := 'Header.Txt';
NMHttp.Body := BodyFile;
NMHttp.ReportLevel := 2;
With NMHttp.HeaderInfo do
Begin
Cookie := '';
LocalMailAddress := '';
LocalProgram := '';
Referer := '';
UserID := '';
Password := '';
End;

If (Parameters = '') Then
Begin
NMHttp.Get(SourceURL);
End
Else
Begin
NMHttp.Post(SourceURL,Parameters);
End;

BodyFile_SL := TStringList.Create();
Try
BodyFile_SL.Clear;
BodyFile_SL.Add(NMHttp.Body);
BodyFile_SL.SaveToFile(BodyFile);
Finally
BodyFile_SL.Free;
End;
Result := True;
Except
Result := False;
End;
Button_Stop.Enabled := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NMHttp_GetURLToFile(NMHTTP1,' http://www.yoursite.com/site/images/logo.jpg','c:\yourpicture.jpg',Button_Stop);
end;

Privet

Arpad (2004-07-31 11:48:00) [3]
Esli est' Indy to vot tak

uses URLMon;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if DownloadFile(' http://www.yoursite.com/site/images/logo.jpg','c:\yourpicture.jpg') then
ShowMessage('OK')
else
ShowMessage('Error');
end;

Privet vsem vam iz Vengrii

Artemon1 (2004-07-17 05:32:00) [4]
Может уже говорили, но помогите

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »