function
 TFrmMain.StahniSoubor(url:
string
;cil:
string
) : Boolean;
var
 lStream1: TFileStream;
begin

  result:=False;
  
if
 checkit(url, dir+
'\temp.tmp'
) 
then
  
begin

    lStream1:=TFileStream.Create(cil, fmCreate 
or
 fmShareDenyWrite);
    
try

      idHttp1.Get(url, lStream1);
    
finally

      lStream1.Free;
    
end
;
    Result:=True;
  
end
;
end
;

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com

S:=TFileStream.Create(
'CESTA na disku, kam se soubor ulo~í'
,fmcreate);
HttpGetBinary(
'http.....'
,S );
S.Free; 

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com

procedure
 TForm1.Button1Click(Sender: TObject);
var
 iall : IHTMLElement;
begin

  
if
 Assigned(WebBrowser1.Document) 
then
 
  
begin

    iall := (WebBrowser1.Document AS IHTMLDocument2).body;

    
while
 iall.parentElement <> 
nil
 
do

    
begin

      iall := iall.parentElement;
    
end
;
    memo1.Text := iall.outerHTML;
  
end
;
end
; 

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com

string
 source = 
"http://www.neco.cz/pic.jpg"

string
 destionation = 
"c:\muj_obrazek.jpg"

WebClient client = 
new
 WebClient();
client.DownloadFile(source, destination); 

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com

final URL url = 
new
 URL(adressString);
final URLConnection connection = url.openConnection();
final InputStream inputStream = connection.getInputStream();

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com