Einzelnen Beitrag anzeigen

Gandimann

Registriert seit: 10. Dez 2008
105 Beiträge
 
#3

AW: Base Url aus LocationURL Finden

  Alt 6. Jan 2012, 21:43
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
Angehängte Dateien
Dateityp: zip TEST_PROJECT.zip (587,5 KB, 0x aufgerufen)
Was ist die mehrzahl von Mopp ? !
genau !... Möpse........oder ?
  Mit Zitat antworten Zitat