wininet in .net oder eine andere lösung?(gethtml)

[Prym]

also ich habe die funktion gethtml(auch aus der dp) die ich gerne in .net übernhemen würde

dafür brauch man aber die wininet in der uses

so nun wollte ich fragen ob es ne bestimmte net uses gibt oder die funktion ander sein muss und wenn dann wie weil so gut kann ich das ja nicht

Funktion:

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;