Código: Seleccionar todo

unit Download;

Uses
WinInet;

{
  Read online Source example by The Swash
  Date: 30/06/2010
  Thanks to Thor
  References : API Guide, MSDN, Swissdelphicenter
}

function GetOnlineSource(URL: String):String;
var
hSesion:    HINTERNET;
hSesionURL: HINTERNET;
lpBuffer :  array [0..1024] of char;
hRet:       DWORD;
begin
hSesion:= InternetOpen('IP',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
If hSesion <> nil then
begin
     hSesionURL:= InternetOpenURL(hSesion,PChar(URL),nil,0,INTERNET_FLAG_RELOAD,0);
     If hSesionURL <> Nil Then
     begin
      Repeat
      InternetReadFile(hSesionURL,@lpBuffer,1024,hRet);
      Result :=  Result + lpBuffer;
      Until (hRet = 0);
     end;
InternetCloseHandle(hSesionURL);
end;
InternetCloseHandle(hsesion)
end;

Código: Seleccionar todo

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 ShowMessage(GetOnlineSource('http://delphi.about.com/library/rtl/blrtlSetLength.htm'));
end;

Código: Seleccionar todo

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Clear;
   Memo1.Lines.Add(GetOnlineSource(Edit1.Text));
end;

Código: Seleccionar todo

Uses WinInet;
function ByteToStr(const byteArray:array of byte): string;
    var i : integer;
    begin
       for i := 1 to SizeOf(byteArray) do
           result := result + Chr(byteArray[i]);
    end;
function GetOnlineSource (const url: string): string;
var
  hInet: HINTERNET;
  hFile: HINTERNET;
  buffer: array[1..1024] of byte;
  bytesRead: DWORD;
begin
  hInet := InternetOpen(PChar(application.title), INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenURL(hInet,PChar(url),nil,0,0,0);
  if Assigned(hFile) then
  begin
    repeat
      InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead);
      result := result+ByteToStr(buffer);
    until bytesRead = 0;
    InternetCloseHandle(hFile);
  end;
  InternetCloseHandle(hInet);
end;