Base Url aus LocationURL Finden

[Gandimann]

Hi Friends,
wie kann ich aus einem gegebenen LocationURL den BaseURL herausfiltern ?

z.B.

gegebene LocationURL = 'http://www.baseurl.com/xyz/abc/lmn.html'

ich möchte baseURL 'http://www.baseurl.com/' herausfiltern.

Ich griege das nicht gebacken:oops::shock:

Bin dankbar für jede Hilfe :)

Gandimann

[s.h.a.r.k]

Delphi-Quellcode:

function ExtractBaseUrlFromGeneralUrl(Url: string): string;
var
  Index : Integer;
  Protocol : string;
  PathExists : Boolean;
begin
  // if (not IsValidUrl(Url)) then
  //   raise Exception.Create(...);

  // Remove http://, https://, ftp://
  Index := Pos('://', Url);
  Protocol := Copy(Url, 1, Index + 2);
  Writeln(Protocol);
  Delete(Url, 1, Index + 2);

  // Remove path if there is any at the and of the url
  Index := Pos('/', Url);
  PathExists := (Index > 0);
  if (PathExists) then
    Delete(Url, Index, Length(Url));

  Result := Protocol + Url;
end;

Nun eine korrekte Version... Hatte das Protokoll vergessen...

[Gandimann]

Zitat:

Zitat von s.h.a.r.k (Beitrag 1144720)

Delphi-Quellcode:

function ExtractBaseUrlFromGeneralUrl(Url: string): string;
var
  Index : Integer;
  Protocol : string;
  PathExists : Boolean;
begin
  // if (not IsValidUrl(Url)) then
  //   raise Exception.Create(...);

  // Remove http://, https://, ftp://
  Index := Pos('://', Url);
  Protocol := Copy(Url, 1, Index + 2);
  Writeln(Protocol);
  Delete(Url, 1, Index + 2);

  // Remove path if there is any at the and of the url
  Index := Pos('/', Url);
  PathExists := (Index > 0);
  if (PathExists) then
    Delete(Url, Index, Length(Url));

  Result := Protocol + Url;
end;

Nun eine korrekte Version... Hatte das Protokoll vergessen...

Leider kommt ein I/O error 105

siehe Test Project

[Luckie]

Hast du auch eine Konsolenanwendung erstellt? Das Writeln (wohl zu Debug-Zwecken) erfordert eine Konsolenanwendung.

[Gandimann]

Zitat:

Zitat von Luckie (Beitrag 1144734)

Hast du auch eine Konsolenanwendung erstellt? Das Writeln (wohl zu Debug-Zwecken) erfordert eine Konsolenanwendung.

Ne ne nee..

Mit Konsolenanwendung habe ich keine Erfahrung...


daher brauch ich Hilfe für normalen Form Anwendung.

[Sir Rufo]

aua

warum kommentierst du denn nicht das WriteLn aus? :roll:

[Gandimann]

Sir Rufo war schneller bevor ich antworten konnte ....:-D

Nevermind....

habe wirteln ins Showmessage geändert... und funzt perfekt...:-D:thumb::thumb:


Danke S.H.A.R.K
Danke Lukie
Danke Sir Rufo

[s.h.a.r.k]

Wirf doch die Zeile ganz raus :D Das Ding was nur zum Testen drin :stupid:

Wichtig wäre nach so einem Fehler vor allem auch, dass du den Code verstehst und nicht nur blind kopierst ;) Nur so für die Zukunft...