Memo tekst

http://www.swissdelphicenter.ch/torry/showcode.php?id=412

function DownloadURL(const aUrl: string; var s: String): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
  dwBytesRead: DWORD;
begin
  Result := False;
  s := '';
  // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(hService) then
        try
          while True do
          begin
            dwBytesRead := 1024;
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
            if dwBytesRead = 0 then break;
            lpBuffer[dwBytesRead] := #0;
            s := s + lpBuffer;
          end;
          Result := True;
        finally
          InternetCloseHandle(hService);
        end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

//aufrufen
var
  s: String;
begin
 if DownloadURL('http://www.swissdelphicenter.ch/', s) then
   Memo1.Lines.Text := s;
end;

Funker ikke hos mig... Og har kikket lidt på siden du linker til og prøvet de andre... Den første får jeg ingen fejl med, men modtager showmessagen der siger at den ikke kan!

Men kan godt.. , men kan ikke loade en tekst på min FTP server.. ? hvorfor ik ?

Shafh, det er fordi du har glemt at tilføje Wininet i din uses.

Dennis, det er fordi man jo skal logge på en ftp hvilket man ikke skal med en hjemmeside. Hvis du vil gøre det med FTP skal du bruge en ftp component, logge på din server, og hente filen som tekst (evt. gemme den i en temp mappe og derefter hente den som en almindelig fil).

Okay.. Men kan du give min den komponent som jeg skal bruge og coden.. ? Det ville være en stor hjælp

Har tilføjet Wininet, ellers ville jeg jo også bare have modtaget en fejl