Downloading Files From The Internet.

[Snaples]

I've been looking for ages for this.
Is there any command like Assign(F,'Blah.Txt');
Or Rewrite/Reset And close for internet files?

like this:

http://www.ultimate-guitar.com/tabs/k/kinks/you_really_got_me_tab.htm

I couldnt do Assign(F,'

http://www.ultimate-guitar.com/tabs/k/kinks/you_really_got_me_tab.htm')

Im working with CodeGear Delphi 2007.

Help will be VERY MUCH appreciated!

 

[fatlardo]

I know you can do it with Borland Delphi 2006, using the Indy components. I also know there is an example of doing just that somewhere online. I just cant remember where!!

If you have the Indy components have a look on google, I think i searched:
delphi sending data over a network

Hope it helps

Gary

 

[DelphiAaron]

have a read of this

http://delphi.about.com/od/internetintranet/a/get_file_net.htm

Aaron

 

[Snaples]

Thanks alot for you both.

I read and tried the About guide, but I dont get something.
Where is the file being saved?
How can I read from it?
Is it stored in a variable?

Thanks in advance.

 

[whosrdaddy]

this part of the code saves the file:

AssignFile(f, FileName) ;
   Rewrite(f,1) ;
   repeat
    InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen) ;
    BlockWrite(f, Buffer, BufferLen)
   until BufferLen = 0;
   CloseFile(f) ;
   result := True;

the function takes a filename as parameter so:

var
  internetFile,
  localFileName: string;
begin
 internetFile := '[URL unfurl="true"]http://z.about.com/6/g/delphi/b/index.xml';[/URL]
 localFileName := c:\temp\Feed.xml';

 if GetInetFile(internetFile, localFileName) then
   ShowMessage('Download successful.')
 else
   ShowMessage('Error in file download.') ;

will save '

http://z.about.com/6/g/delphi/b/index.xml'

into c:\temp\feed.xml

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[roo0047]

Also have a look at:

http://www.utilmind.com/delphi/httpget.zip

http://www.utilmind.com/delphi2.html

It's old, but included free source. I learned a lot from it.

Roo
Delphi Rules!