Downloade fil fra internettet
Goddag.Jeg vil gerne hente en tekstfil fra internettet vha. et delphi-program. Jeg har fundet følgende kode i en anden tråd her på eksperten:
function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
try
hURL := InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetInetFile('http://www.MinSide.dk/MinFil.txt','c:\MinFil.txt');
end;
Når jeg forsøger at compile, får jeg følgende fejl:
[Error] Unit1.pas(29): Undeclared identifier: 'Hinternet'
[Error] Unit1.pas(37): Undeclared identifier: 'InternetOpen'
[Error] Unit1.pas(37): Undeclared identifier: 'INTERNET_OPEN_TYPE_PRECONFIG'
[Error] Unit1.pas(39): Undeclared identifier: 'InternetOpenUrl'
[Error] Unit1.pas(44): Undeclared identifier: 'InternetReadFile'
[Error] Unit1.pas(50): Undeclared identifier: 'InternetCloseHandle'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Jeg bruger Delphi 7. Er der en som kan se hvad der er galt, eller eventuelt har noget andet fungerende kode liggende?
På forhånd tak
