Gethtml in einem Delphi Thread?

**Prym**

Zitat von huberlix:

Oder, wenn du die Seite als Quelltext haben willst: Das folgende hab ich aus "Easy Delphi Helper" kopiert:

Zitat:

Den Inhalt einer HTML-Datei aus dem Internet downloaden

Wie kann ich eine HTML-Datei aus dem Internet downloaden und in einem Memofeld anzeigen.

Diese Lösung habe ich bei

www.delphi3000.com gefunden. Damit die Funktion funktioniert muss noch eine Unit eingebunden werden:

zusammenfalten · markieren

Delphi-Quellcode:

			uses WinInet;

Function GetHTML(AUrl: string): string;

var

  databuffer : array[0..4095] of char;

  ResStr : string;

  hSession, hfile, hRequest: hInternet;

  dwindex,dwcodelen,datalen,dwread,dwNumber: cardinal;

  dwcode : array[1..20] of char;

  res    : pchar;

  Str    : pchar;

begin

  ResStr:='';

  if pos('http://',lowercase(AUrl))=0 then

     AUrl:='http://'+AUrl;

  hSession:=InternetOpen('InetURL:/1.0',

                         INTERNET_OPEN_TYPE_PRECONFIG,

                         nil,

                         nil,

                         0);

  if assigned(hsession) then

  begin

    hfile:=InternetOpenUrl(

           hsession,

           pchar(AUrl),

           nil,

           0,

           INTERNET_FLAG_RELOAD,

           0);

    dwIndex  := 0;

    dwCodeLen := 10;

    HttpQueryInfo(hfile,

                  HTTP_QUERY_STATUS_CODE,

                  @dwcode,

                  dwcodeLen,

                  dwIndex);

    res := pchar(@dwcode);

    dwNumber := sizeof(databuffer)-1;

    if (res ='200') or (res ='302') then

    begin

      while (InternetReadfile(hfile,

                              @databuffer,

                              dwNumber,

                              DwRead)) do

      begin

        if dwRead =0 then

          break;

        databuffer[dwread]:=#0;

        Str := pchar(@databuffer);

        resStr := resStr + Str;

      end;

    end

    else

      ResStr := 'Status:'+res;

    if assigned(hfile) then

      InternetCloseHandle(hfile);

  end;

  InternetCloseHandle(hsession);

  Result := resStr;

end;

So erfolgt der Aufruf:

markieren

Delphi-Quellcode:

			procedure TForm1.MultilineButton1Click(Sender: TObject);

begin

  Memo1.Text:=GetHTML('http://localhost/index.htm');

end;

--
Homepage:

http://www.delphi3000.com

also ich wollte fragen wie man die obige gethtml funktion in einen thread tun kann ich habe da nicht viel ahnung weil zb kann ich in der unit beim thread oder muss ich da die funktion einfach so reinklopen usw?

und kann ich die funktion überhaupt darein tun weil ich schon was mit fehlern wegen irgend welchen sachen die da nicht kompatiobel sind usw?

[edit=alcaeus]Delphi-Tags eingefuegt. Bitte in Zukunft selbst machen, Danke. Mfg, alcaeus[/edit]

Gethtml in einem Delphi Thread?

Gethtml in einem Delphi Thread?

Forumregeln