Delphi url entschlüßeln

Thema durchsuchen

Ansicht

Themen-Optionen

url entschlüßeln

Ein Thema von theomega · begonnen am 25. Jul 2002 · letzter Beitrag vom 4. Jan 2003

Vorheriger Beitrag

Nächster Beitrag

Robert

Registriert seit: 4. Jan 2003
36 Beiträge

4. Jan 2003, 18:16

zusammenfalten · markieren

Delphi-Quellcode:

			function extractURLFile(URL:STRING):STRING;

var I,iLast,iFirst:INTEGER;

begin

  iLast:=LENGTH(URL)+1;

  iFirst:=1;

  FOR I:=LENGTH(URL) DOWNTO 1 DO

    BEGIN

      IF URL[I] = '/' THEN

        BEGIN

          iFirst:=I+1;

          BREAK;

        END

      ELSE IF URL[I] = '?' THEN iLast:=I;

    END;

  Result:=COPY(URL,iFirst,iLast-iFirst);

end;