programatically extract the file name from a Download Link using delphi -


How can I remove the file name from the download link using Delphi?

Example 

  http://pj-mirror01.mozilla.org/pub/mozilla.org/firefox/releases/3.6/win32/es-CL/Firefox%20Setup%203.6.exe  

  Firefox Setup 3.6.exe

Try it

Function GetURLFilename (file type: string; constant delimiter: string = '/'): string; Var I: integer; I start: = LastDelimiter (Delimiter, FILEPATH); Result: = Copy (FILEPATH, I + 1, MaxInt); Results: = UrlDecode (Results); End;

The URL was copied to the code and it looks 

  function URL code (Cont. Encoded STR: string): string; Var I: integer; Start the result: = ''; If Length (encoded STR) & gt; 0 Then I start: = 1; While I & lt; = Length (encoded STR) starts when encoded STR [I] = '%' then the result starts: = result + crow (hexteoin (encoded STR [I + 1] + encoded SRR [I + 2])) ; I: = Succ (Succ (I)); And end and if encoded STR [I] = '+' then result: = result + '' and result: = result + encoded SRR [I]; I: = Succ (I); End; End; End; Function HexTown (Hexstrrast: String): Int 64; Var RetVar: Int64; I: byte; Start hexstrate: = uppercase (hexster); If hexster [length (hexster)] = 'h' remove (hexसेट, height (hexster), 1); RetVar: = 0; For: = 1 length (hexacrat) starts with RetVar: = RetVar shl 4; If the hexster [i] ['0' .. '9'] then RetVar: = RetVar + (byte (hexast [i]) - 48) and if hexast [i] ['A' .. 'F'] Then RetVar: = RetVar + (byte (hexstrat [i]) - 55) start again: = 0; break; End; End; Result: = Rateer; End;

Comments

Post a Comment

Popular posts from this blog

sql - dynamically varied number of conditions in the 'where' statement using LINQ -

I am using my first project LINQ (in mvc), so maybe there's something very simple that I remember. However, a day of searching and experimenting does not work, so it works. I am trying to write a LINQ query (Linux to SQL) in which in many cases where the statement is different from an OR or an AND. We do not know how many conditions are going in the query till runtime. This search is for filter control, where the user can choose multiple criteria for filtering. Select from table where table.col = 1 or table.col = 2 or table.col = 7 .... 'Other number of conditions Before I just create the SQL query as a string, while looping over all the situations. However, it seems that there should be a good way to do this in LINQ. I tried to use Expression trees, but they had a second thought for this moment on my head, where the lambda function was to be executed inside the statement such as: values ​​for matchingRows = matchingRows for each value Where (function (row) row.c...
Read more

asp.net mvc - Dynamically Generated Ajax.BeginForm -

I have a problem with ASP.NET MVC Ajax forms. I generate many Ajax form in a table such as: & Lt; Input type = "submit" name = "activity" value = "add activity" / & gt; & Lt;%}% & gt; & Lt; / TD & gt; & Lt; / TR & gt; & Lt;%}% & gt; So far so good. When I post one of those forms, it gives a partial view in a div, and in this new partial view a new Ajax Beginnform (which is not in Genesis form) This second Ajax Beginnorf is exactly like the ones I got on the table, but when I post it, I do not get the "Ajax Post", but a normal post that sends me to a new page, I do not know whether the two Ajax forms What is the reason for the difference between, why is it the "dynamically generated" Ajax form behaves like a normal HTML form? By the way, I know that I can do it in different ways using javascript, but I would like to understand whether it can only be done using MVC helplars and Ajax lib...
Read more

Debug on symbian -

I am using trk for phone debug This works well for the Holorld project But when I start the project in phone debug mode 1) the load failed 2) TrkProtocolPlugin: to target the specified file Failure (please verify If any body understands what problem I am experiencing, then this problem helps me Pre-release If the application has the privileges assigned (with the appropriate certificate) itemprop = "text" > In your case, I will check: / li> If there is no conflict of application ID with any other application of device If there are problematic commands in the installation package (for example copy copy for non-accessible directories)
Read more