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

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 von 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...

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 von Luckie:

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?

[Gandimann]

Sir Rufo war schneller bevor ich antworten konnte ....

Nevermind....

habe wirteln ins Showmessage geändert... und funzt perfekt...


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

[s.h.a.r.k]

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

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...