Download af en fil?

Hej

De nedstående kodeeksempler kan jeg ikke få til at fungerer,
får hele tiden meddelsen om: "Kunne ikke downloade filen".
Kan du se hvor det går galt og hvordan det skal rette for at kunne fungere!

Er tilføjet: URLMon i uses.
Anvender Delphi 6

Kode 

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


procedure TfmIndskrivPers.Opdatering1Click(Sender: TObject);
begin
if DownloadFile('http://www.sunwind.dk/designforum/downloadmap/murpro.zip', 'C:\\Udpakke/murpro.zip') then
ShowMessage('Filen er downloaded.')
else
ShowMessage('Kunne ikke downloade filen.'); 
end;

På forhånden rigtigt mange tak!
Med venlig hilsen og god jul.
Monie Jacobsen

E-mail:energy@sunwind.dk

Måske findes filen ikke på serveren ellers kan det være at du skal ændre C:\\Udpakke/murpro.zip til C:\\Udpakke\\murpro.zip

[Redigeret d. 22/12-03 11:26:30 af Henrik M]

Hej

De nedstående kodeeksempler kan jeg ikke få til at fungerer,
får hele tiden meddelsen om: "Kunne ikke downloade filen".
Kan du se hvor det går galt og hvordan det skal rette for at kunne fungere!

Er tilføjet: URLMon i uses.
Anvender Delphi 6

Kode 

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


procedure TfmIndskrivPers.Opdatering1Click(Sender: TObject);
begin
if DownloadFile('http://www.sunwind.dk/designforum/downloadmap/murpro.zip', 'C:\\Udpakke/murpro.zip') then
ShowMessage('Filen er downloaded.')
else
ShowMessage('Kunne ikke downloade filen.'); 
end;

På forhånden rigtigt mange tak!
Med venlig hilsen og god jul.
Monie Jacobsen

E-mail:energy@sunwind.dk

Måske findes filen ikke på serveren ellers kan det være at du skal ændre C:\\Udpakke/murpro.zip til C:\\Udpakke\\murpro.zip

[Redigeret d. 22/12-03 11:26:30 af Henrik M]

Det hjalp ikke!
Mvh
Monie Jacobsen

energy@sunwind.dk

Somme tider kan man ikke udpakke filer fra programmer hvis mappen ikke eksisterer!

Somme tider kan man ikke udpakke filer fra programmer hvis mappen ikke eksisterer!

Hej

Jeg er ikke helt sikker hvad du mener!
Men den fil jeg prøves, at download findes på den angivet adresse.

Mvh
Monie Jacobsen

energy@sunwind.dk

Det er ikke utænkeligt at stien er case sensitive. Jeg forsøgte mig lige med et eksempel, hvor jeg skrev stien med små bogstaver, det virkede ikke. Så skrev jeg stien præcis som den stod (filnavnet indeholdte store bogstaver), så virkede det.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 22/12-03 13:06:53 af Thomas Due]

Det er ikke utænkeligt at stien er case sensitive. Jeg forsøgte mig lige med et eksempel, hvor jeg skrev stien med små bogstaver, det virkede ikke. Så skrev jeg stien præcis som den stod (filnavnet indeholdte store bogstaver), så virkede det.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 22/12-03 13:06:53 af Thomas Due]

Ok Thomas

Det vil jeg også lige afprøve!

Mange tak
Mvh
Monie Jacobsen

energy@sunwind.dk

Det er ikke utænkeligt at stien er case sensitive. Jeg forsøgte mig lige med et eksempel, hvor jeg skrev stien med små bogstaver, det virkede ikke. Så skrev jeg stien præcis som den stod (filnavnet indeholdte store bogstaver), så virkede det.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 22/12-03 13:06:53 af Thomas Due]

Hej

Jeg kunne ikke få det til at virke!
Har du mulighed for, at sende eksemplet du afprøvede?

Får fejmeddelse når jeg med Ctr+Klik for at følge link, klikker på

http://www.sunwind.dk/designforum/downloadmap/murpro.zip

MenuPopUp overskriften: Microsoft office Word
Kan ikke åben http://www.sunwind.dk/designforum/downloadmap/murpro.zip internetserveren eller proxyserveren blev ikk fundet.

Hvad går der galt?
Hvad skal jeg evt. rette og hvor?

Med venlig hilsen
Monie Jacobsen

E-mail:energy@sunwind.dk

[Redigeret d. 23/12-03 08:53:28 af Monie Jacobsen]

Hej

De nedstående kodeeksempler kan jeg ikke få til at fungerer,
får hele tiden meddelsen om: "Kunne ikke downloade filen".
Kan du se hvor det går galt og hvordan det skal rette for at kunne fungere!

Er tilføjet: URLMon i uses.
Anvender Delphi 6

Kode 

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


procedure TfmIndskrivPers.Opdatering1Click(Sender: TObject);
begin
if DownloadFile('http://www.sunwind.dk/designforum/downloadmap/murpro.zip', 'C:\\Udpakke/murpro.zip') then
ShowMessage('Filen er downloaded.')
else
ShowMessage('Kunne ikke downloade filen.'); 
end;

På forhånden rigtigt mange tak!
Med venlig hilsen og god jul.
Monie Jacobsen

E-mail:energy@sunwind.dk

Tag et kig på dette komponent http://www.euromind.com/iedelphi/iedownload.htm
--
It compiles...Let\\'s ship it!

Hej

De nedstående kodeeksempler kan jeg ikke få til at fungerer,
får hele tiden meddelsen om: "Kunne ikke downloade filen".
Kan du se hvor det går galt og hvordan det skal rette for at kunne fungere!

Er tilføjet: URLMon i uses.
Anvender Delphi 6

Kode 

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


procedure TfmIndskrivPers.Opdatering1Click(Sender: TObject);
begin
if DownloadFile('http://www.sunwind.dk/designforum/downloadmap/murpro.zip', 'C:\\Udpakke/murpro.zip') then
ShowMessage('Filen er downloaded.')
else
ShowMessage('Kunne ikke downloade filen.'); 
end;

På forhånden rigtigt mange tak!
Med venlig hilsen og god jul.
Monie Jacobsen

E-mail:energy@sunwind.dk


Tag et kig på dette komponent http://www.euromind.com/iedelphi/iedownload.htm
--
It compiles...Let\\'s ship it!

Tak Morten Sinnet
Jeg vil prøve denne komponent
Mvh godt nytår.

energy@sunwind.dk