Solved

Question about idhttp GET

Posted on 2008-10-29
14
926 Views
Last Modified: 2013-11-23
I've seen an interesting posting here: http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23286908.html

Where I could get a filename for an url which looks like this: http://www.deadlybossmods.com/download.php?id=1

the problem is, it does not result any filename if the url looks like this one: http://www.delphipages.com/edit/count.cfm?ID=3338

can someone make it work with most if not all urls?

kindest regards
s!
0
Comment
Question by:stOrM
  • 7
  • 7
14 Comments
 
LVL 28

Accepted Solution

by:
2266180 earned 250 total points
ID: 22839152
>> the problem is, it does not result any filename if the url looks like this one: http://www.delphipages.com/edit/count.cfm?ID=3338

needs a little modification
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdHeaderList;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    fn:string;
    procedure IdHTTP1HeadersAvailable(Sender: TObject;
      AHeaders: TIdHeaderList; var VContinue: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses idhttp;
 
{$R *.dfm}
 
procedure TForm1.IdHTTP1HeadersAvailable(Sender: TObject;
  AHeaders: TIdHeaderList; var VContinue: Boolean);
var
  ContentDisposition: string;
begin
  ContentDisposition := AHeaders.Values['Content-Disposition'];
  if ContentDisposition='' then
    exit;
  ContentDisposition := Copy(ContentDisposition, 1 + Pos(';', ContentDisposition), MaxInt);
  ContentDisposition := StringReplace(ContentDisposition, 'filename=', '', [rfIgnoreCase]);
  ContentDisposition := StringReplace(ContentDisposition, '"', '', [rfReplaceAll]);
  fn := ContentDisposition;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var h:tidhttp;
    s:TMemoryStream;
    url:string;
begin
  h:=tidhttp.create(nil);
  try
    h.HandleRedirects:=false;
    h.OnHeadersAvailable:=IdHTTP1HeadersAvailable;
    url:='http://www.delphipages.com/edit/count.cfm?ID=3338';
    s:=TMemoryStream.Create;
    try
      repeat
        try
          fn:=ExtractFileName(StringReplace(url, '/', '\', [rfReplaceAll]));
          fn:=StringReplace(fn, '?', '_', [rfReplaceAll]);
          fn:=StringReplace(fn, '&', '_', [rfReplaceAll]);
          fn:=StringReplace(fn, '=', '_', [rfReplaceAll]);
          h.Get(url, s);
          s.SaveToFile(fn);
          break;
        except
          on e:EIdHTTPProtocolException do
          begin
            if (e.ErrorCode mod 300) in [1, 2, 3, 7] then
              url:=h.response.location
            else
              raise
          end;
          on exception do
            raise;
        end;
      until false;
    finally
      freeandnil(s);
    end;
  finally
    freeandnil(h);
  end;
end;
 
end.

Open in new window

0
 
LVL 1

Author Comment

by:stOrM
ID: 22850641
Hi ciuly,
maybe I did a mistake but if I execute your code, I run into an exception telling me:

'EIdHTTPProtocolException HTTP/1.1.302 Object Moved'

kindest regards
s!
0
 
LVL 28

Expert Comment

by:2266180
ID: 22850920
that only happens when running in the IDE and not having the delphi exceptions ignored :)

so, either run it from outside of the ide, or, in ide, menu, tools - debugger options - language exceptions : uncheck stop on delphi exceptions.
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 1

Author Comment

by:stOrM
ID: 22851125
Ah I see, perfect job!
Thank you very much!

Maybe one last word, does this version you have done now works with all of those urls which hides filenames or is it alsmost impossible to extract every one?

kindest regards
s!
0
 
LVL 28

Expert Comment

by:2266180
ID: 22851156
can't say. if the methods used are standardized and are the 2 which I implemented, then yes :) there might be other standard ways of doing it. when you find one, just ask and we'll solve it ;)
0
 
LVL 1

Author Comment

by:stOrM
ID: 22851262
Ok I'll look if I stumble about another one, I'll let you know!
Again thank you very much!

s!
0
 
LVL 28

Expert Comment

by:2266180
ID: 22851754
you're welcome
0
 
LVL 1

Author Comment

by:stOrM
ID: 22852796
Hi ciuly,
I didn't thought I would come back so fast but try this url: http://go.microsoft.com/FWLink/?LinkId=84399
for the example above it will not generate the filename :-(
0
 
LVL 28

Expert Comment

by:2266180
ID: 22852908
it works for me
0
 
LVL 1

Author Comment

by:stOrM
ID: 22852977
Hmm don't know why probably my mistake I got as filename result: _LinkId_84399 instead of wuredist.cab
0
 
LVL 28

Expert Comment

by:2266180
ID: 22853010
yes, in first instance. but when doing the get, it will redirect (302) which will give the new url and thus changing the filename from _LinkId_84399 to wuredist.cab

unless you changed something in the code :P

run my code as it is (only change the url) and you will see it works.
0
 
LVL 1

Author Comment

by:stOrM
ID: 22853104
seems to be something with my other code inside the thread not sure whats wrong in the moment i need more testing
0
 
LVL 28

Expert Comment

by:2266180
ID: 22853598
tae your time. just keep in mind that according to EE rules, since you are having another problem, even though it is related to this question, you need to open a new question because it is actually another problem ;)
there is an ask a related question link just above the memo box you type in, this one: http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/newQuestionWizardRelated.jsp?qid=23860762
0
 
LVL 1

Author Comment

by:stOrM
ID: 22856260
Ok I'll see I now found the problem myself.
While running your code inside a seperate thread, I was freeing the MemoryStream and IDHHTP Object not inside the thread execution but in destroy. That was my mistake so the downloaded file couldn't be saved to hdd!
I now moved the freeing of both objects into the finally statements in thread execute method and it works like a charm!

kindest regards
s!
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Intraweb download file link ? 1 154
creating threads in delphi 1 131
How to build JSON File in Delphi 6 3 45
eclipse apache tomcat admin console 52 121
Jaspersoft Studio is a plugin for Eclipse that lets you create reports from a datasource.  In this article, we'll go over creating a report from a default template and setting up a datasource that connects to your database.
How to install Selenium IDE and loops for quick automated testing. Get Selenium IDE from http://seleniumhq.org Go to that link and select download selenium in the right hand columnThat will then direct you to their download page.From that page s…
The viewer will learn how to use and create keystrokes in Netbeans IDE 8.0 for Windows.
The viewer will learn how to synchronize PHP projects with a remote server in NetBeans IDE 8.0 for Windows.

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question