Welche
Unit soll ich nehmen um AnsiReplaceText() bereitzustellen, System.AnsiStrings oder System.StrUtils?
Delphi-Quellcode:
Function UrlToFilename(sURL: String) : String; // da Du auf sURL schreibst hab ich Const entfernt
var
iPos: Integer;
begin
iPos := Pos('?',sUrl);
if iPos > 0 then sUrl := Copy(sUrl,1,iPos - 1);
iPos := Pos('//',sUrl);
if iPos > 0 then sUrl := 'c:' + Copy(sUrl,iPos + 1,Length(sUrl));
sUrl := AnsiReplaceText(sUrl,'/','\');
Result := ExtractFileName(sUrl);
if Result = '' then Result := 'index.html'; // und das hier zugefügt
end;
Das funktioniert astrein aber das Hauptproblem bleibt bestehen,
hier ein Beispiel
Delphi-Quellcode:
ShowMessage(UrlToFilename('https://www.delphipraxis.net/');
oder
ShowMessage(UrlToFilename('https://www.delphipraxis.net');
da wünsche ich mir als Ergebnis ein "index.html"