Downloade PDF fra link på en hjemmeside

Du kan vel bare undersøge den hjemmeside du henter, check om der findes .PDF nogen steder.

Ja, men hvis der nu var en eller anden smart måde, ville jeg jo helst bruge den :)

Du ønsker at få koden til at løse dit ønske?

Hvis du lige har den ville det da være fint, tak :) ( smid den som et svar )

Kigger på når jeg kommer hjem til min delphi, synes måske det ville være sjovere for dig, at finde løsningen selv!!

Det er var nu ikke for morskabens skyld :) ( Har kodet delphi siden 95´ )

Så synes jeg da bare du skal komme igang, det er jo en ret kedelig opgave

Sådan lige hurtig og kort og uden noget form for fejl check (Try-Except beklager hrc ;-) ) og kun testet med en enkelt side (www.fiberbredbaand.dk), men det kan vel give dig nogle ideer.
Jeg bruger Delphi 7 og Indy´s IdHTTP komponent, og det virker fint her.

-----------------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdHTTP, StrUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure HentPdfer(Side, Mappe : string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HentPdfer(Side, Mappe : string);
var
    IdHTTP : TIdHTTP;
  MS    :TMemoryStream;
  i,c : integer;
  OrgSide,Link,Filnavn : string;

procedure HentPDF;
begin
    MS.Clear;
    Filnavn:='http://'+IdHTTP.Host+Link;
    IdHTTP.Get(Filnavn,MS);
    Filnavn:=Copy(Link,LastDelimiter('/',Link)+1,MaxInt);
    MS.SaveToFile(Mappe+Filnavn);
end;

begin
    IdHTTP:=TIdHTTP.Create(Self);
  MS:=TMemoryStream.Create;

    Side:=IdHTTP.Get(Side);
  OrgSide:=Side;
    Side:=AnsiLowerCase(Side);

  c:=PosEx('href',Side);
  while c>0 do
  begin
        i:=PosEx('"',Side,c+6);
        Link:=Copy(OrgSide,c+6,i-c-6);
        if Copy(Link,Length(Link)-3,4)='.pdf' then
        HentPDF;
    c:=PosEx('href',Side,i);
  end;

  IdHTTP.Free;
  MS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    HentPdfer('http://www.fiberbredbaand.dk/portal/page/portal/Energimidt/forside/support/vejledninger?page=265','c:\hk\pdf\');
end;

end.

kroning >> smid et svar så for du point :)

ok, det virkede måske uden videre?

Det gjore det så ikke, jeg får en fejl jeg ikke lige ved hvordan jeg løser, "IOHandler value not vaild" jeg mener det er Indy10 jeg har installeret, nogen der har et foreslag ??

I hvilken linie får du fejlen?

Jeg lavede lige et tjek på din kode, og den laver fejl i linjen med:

Side:=IdHTTP.Get(Side);

Debugger Exception Notification: Project Project1.exe raised exception class EIdSocketError with message 'Socket Error # 11004'. Process stopped. Use Step or Run to continue.

Ved ikke om det er til nogen hjælp, men poster det alligevel:
http://img48.imageshack.us/my.php?image=experroryn0.jpg

M.v.h. Johnny

Argh, mig der dummer mig, undskyld for mit ubrugbare indlæg.

kroning >> det er når jeg laver en Get() jeg får den IOHandler fejl ;)

Husker du at skrive http:// i dit link?

Nej så får man en anden fejl, men jeg ved så ikke hvorfor, koden som den står virker fint her med Indy 9.

Jeg har ikke lige fået brugt tid på det, jeg tror det er noget med Indy10, så måske jeg neddrosler min indy til en 9'er, vender tilbage når jeg har fået det til at virke :)

kroning >> Din kode virker fint, problemet er når jeg skal hente noget https://
så det sidder jeg og roder lidt med :)

Smid et svar igen så for du point :)

k