Witam,
Nie wiem czemu ale mam dziwny blad ... Mianowicie w komponencie klasy Tedit (URLEdit) jezeli jest link w formie http://nazwa_hosta/nazwa.pliku to ma usunac http:// i zapisac wynik do zmiennej link a gdy adres w w/w komponencie wyglada tak: nazwa_hosta/nazwa.pliku to ma ja bez niczego zapisac do zmiennej link, i problem polega na tym ze jak dam = 0 to dziala z http:// a jak dam <>0 to dziala bez http:// a celem tej procedury jest dzialanie w kazdym przypadku ...
procedure TForm1.Button3Click(Sender: TObject);
var
link: string;
begin
link:=URLEdit.text;
if Pos('
http://' , link)
<> 0 then
begin
link:=Copy(URLEdit.text, 8, URLEdit.SelLength);
end;
HTTPGetFile.URL := link;
HTTPGetFile.FileName := FileNameEdit.Text;
HTTPGetFile.GetFile;
end;
Bardzo prosze o pomoc ...