Czesc!
MAm pytanko :-) .
JAk moge odczyatc z URL'a nazwe pliku + roz czyli np:
w edycie1 mam text = 'http://www.strona/plik.roz' i chce zeby w edycie2 pokazala sie nazwa pliku a nie stronka. (czyli plik.rz)
JAk to zrobic [???] [???]
PozdraWiam , cya [cya]
Przeszukuj Adres (string) pod kątem wystepowania znaku /, i jak znajdzie juz ostatni, to dalej masz juz nazwe programu
Czyli, jak to zrobic [???]
tHx za odpowiedz
function NazwaPliku(URL: string): string;
var
i: Integer;
begin
i := Length(URL);
while (i>0) and (URL[i]'/') do
Dec(i);
if i > 0 then
Result := RigthStr(URL, Length(URL)-i)
else
Result := '';
end;
Do uses musisz dodać StrUtils.
I troszkę wyobraźni. Pokombinuj najpierw sam.
tHx za odpowiedzi :-) :-)
POZDRóWki :d
i jeszce jeden problem, wyskakuje mie bad przy'RigthStr(..)'
oto moja dzialajaca na 100% przy straszych delphi funkcja:
function extracturlfilename(url : string) : string;
var
s : string;
i : integer;
begin
s := url;
for i:=0 to length(url) do
delete(s,1,pos('/',s));
result := s;
end;
Ufff literki mi sie przestawily RigthStr ma byc Right [glowa] hehhe
tHx za odpowiedzi :-)
POZDRóWKI :-)
poco sie męczyć??? extractfilename cie wyreczy;)
PS. dziala i na urle
Drajwerek - niestety nie masz racji :-P poniewaz jak podajesz z http://
to usuwa tylko http:// a jak bez to pokazyje ten sam link beez zmian, bo juz tez probowalem :-) :-) . Dlatego napisalem ten POST
POZDRóWkI :-) :-)
no niewiem:P ja próbowałem to dobrze wychodziło ew. zamienic na \ / albo // na \ ...
url:=stringreplace(url,'','/',[rfreplaceall]);
ale extractfilename dziala na urle to jest przeciez tez sciezka oddzielona / ...?
Drajwerku, mi dziala ta funkcja od Dryobatesa ale dzieki za chceci odpowiedzi na moj post.
MOze i dziala ale unie exctratfilename nie dziala :-( bo tez probowalen (jak juz pisalem w czesniej)
tHx za odpowiezdi :-) :-*
POZDRóWKI :-)
Atlas [cenzura]
procedure TForm1.Button1Click(Sender: TObject);
var url:string;
begin
url:='http://4programmers.net/Forum/viewtopic.php?id=37938&p=1';
url:=stringreplace(url,'http://','',[rfreplaceall,rfignorecase]);
url:=stringreplace(url,'http:','',[rfreplaceall,rfignorecase]);
url:=stringreplace(url,'/','',[rfreplaceall]);
showmessage(extractfilename(url));
end;
zatkało?
PS. oczywiscie jest to alternatywny sposób ale mi sie podoba:) (wymyślony na poczekaniu i działający)