Avatar billede robertmp Nybegynder
22. maj 2006 - 09:42 Der er 3 kommentarer

Download billede fra nettet

Har søgt lidt frem og tilbage på nettet, men fandt ingen eksempler på hvordan man downloader et billede fra nettet. Nogen der har en code snippet de vil af med?
Avatar billede kroning Nybegynder
22. maj 2006 - 09:47 #1
Indy har komponenter til den slags
Avatar billede robertmp Nybegynder
22. maj 2006 - 10:03 #2
Kan du komme tættere på end det? :)
Avatar billede robertmp Nybegynder
22. maj 2006 - 10:32 #3
Fandt den selv

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;
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester