Fil på nettet

Bruge PosEx i delphi 7, og hvis du ikke har Delphi 7, så er der en funktion her der gør det samme:

function PosEx(Substring, Mainstring: string; n: Integer = 1): Integer;
begin
  if Pos(substring, mainstring) = 0 then 
  begin 
    Result := 0;
    Exit;
  end
  else
  begin
    if n = 1 then Result := Pos(substring, mainstring)
    else
    begin
      Result := Pos(substring, mainstring) + posEx(substring, Copy(mainstring,
        (Pos(substring, mainstring) + 1), Length(mainstring)), n - 1);
    end;
  end;
end;

Så skal du bare blive ved til du har fundet den sidste, og så bruge:
Copy('www.eksempel.dk', {der hvor du skal kopiere fra}, {længden -der hvor du skal kopiere fra})

Du kan sikkert finde en funktion der søger bagfra, men har ikke lige tid til at gennemrode nettet efter den slags :D

Casper

hvis du finder ExtractFileName's kode, er der ikke svært at ændre \ til / og char delimiter til : mener jeg.

function ExtractUrlFileName(const AUrl: string): string; 
var
  i: Integer;
begin
  i := LastDelimiter('/', AUrl);
  Result := Copy(AUrl, i + 1, Length(AUrl) - (i));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin

  s := ExtractUrlFileName('http://www.domain.dk/image.jpg');
  ShowMessage(s);  // = image.jpg
end;

Stoney