Скачивание jpg

← →
Artemon1 (2004-07-15 23:49) [0]

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

← →
Artemon1 (2004-07-17 05:32) [1]

Может уже говорили, но помогите

← →
Arpad (2004-07-31 11:48) [2]

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

← →
Arpad (2004-07-31 12:02) [3]

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

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

Скачивание jpg Найти похожие ветки