Pobieranie pliku

0

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 ...

0

Link:=URLEdit.text;

tu bym zrobil Link:=Trim(URLEdit.Text); ale to w sumie inna bajka

If Pos('http://', Link) <> 0 then
begin
link:=Copy(URLEdit.text, 8, URLEdit.SelLength);

A te SelLength to po co ? To zdaje sie sluzy do czegos innego.

Wydaje mi sie, ze powinno byc
Link:=Copy(Link,8,Length(Link)-7); albo po prostu Delete(Link,7);

0

if copy(URLEdit.text, 1, 7) = 'http://' then
link := copy(URLEdit.text, 8, length(URLEdit.Text));

:)

  • kolorowanie się wali przy 'http:*'
    //
'http://'
0

Jak dam zamiast

if Pos(' http://' , link) <> 0 then
begin
link:=Copy(URLEdit.text, 8, URLEdit.SelLength);
end;

if copy(URLEdit.text, 1, 7) = 'http://' then
link := copy(URLEdit.text, 8, URLEdit.SelLength);

a w adresie jest link z http://

to showmessage(link); pokaze puste okienko ...
a jak wpisze bez http:// to dziala ...

Sorx, za jeszcze jeden post ale po sprawdzeniu pomysłu jajaaaaaa z tym
Link:=Copy(URLEdit.text,8,Length(Link)-7);
zadziałało ;]

Wiec dzieki chłopaki ...

0

Jak dam zamiast

if Pos(' http://' , link) <> 0 then
begin
link:=Copy(URLEdit.text, 8, URLEdit.SelLength);
end;

if copy(URLEdit.text, 1, 7) = 'http://' then
link := copy(URLEdit.text, 8, URLEdit.SelLength);

a przeczytales odpowiedzi ???

te pos czy copy akurat niewiele zmieni

wazne jest ze SelLength to nie dlugosc tekstu.. dlugosc sie sprawdza przez length()

1 użytkowników online, w tym zalogowanych: 0, gości: 1