Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Izvlacenje promenljive vrednosti iz URL-a

[es] :: Pascal / Delphi / Kylix :: Izvlacenje promenljive vrednosti iz URL-a

[ Pregleda: 1230 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mica99
Srbija

Član broj: 243749
Poruke: 90
*.smileytv.rs.



+1 Profil

icon Izvlacenje promenljive vrednosti iz URL-a14.06.2018. u 13:14 - pre 70 meseci
Pozdrav,

Imam poteškoća sa izvlačenjem promenljive iz URL-a.
Probao sam razne primere sa TIdHTTP koje sam našao na netu ali ne pomaze.

Imam recimo ovakav URL
http://mojsajt.com/view.php?track=59H-7WZ-1Y5L&Refresh=60

Treblao bi da izvlačim sve između = i & znaka tj u ovo slučaju 59H-7WZ-1Y5L

Hvala unapred

 
Odgovor na temu

Predrag Supurovic
Pedja YT9TP
Užice

Član broj: 157129
Poruke: 6275

Sajt: pedja.supurovic.net


+1570 Profil

icon Re: Izvlacenje promenljive vrednosti iz URL-a14.06.2018. u 15:17 - pre 70 meseci
Prvo odsečeš sve levo od znaka ?
Onda odsečeš sve desno od znaka #
Onda string iseckaš po znaku &
Onda svaki isečak ponovo isečeš po znaku =
Vrednost levo od znaka = je naziv promenljive
Vrednsot desno od znaka = je vrednost promenljive

Napraviš TDictionary<string,string> iz Generics.Collections i napjuniš ga vednostima tako da nazivpromenljvi ekorsitiš kao ključ a vrednsot kao vrednsot elementa.

I posle kad ti nešto treba prosto pročitaš iz te kolekcije.

 
Odgovor na temu

Milan Milosevic

Član broj: 67
Poruke: 932
*.dynamic.isp.telekom.rs.



+31 Profil

icon Re: Izvlacenje promenljive vrednosti iz URL-a14.06.2018. u 17:25 - pre 70 meseci
Code:

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   Function IzvuciPodstring(URL,PocZnak,ZavrsZnak:String):String;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption:= IzvuciPodstring('http://mojsajt.com/view.php?track=59H-7WZ-1Y5L&Refresh=60','track=','&');
end;

function TForm1.IzvuciPodstring(URL,PocZnak,ZavrsZnak:String):String;
Var Pocetak,Kraj:Integer;
    Podstring:String;
begin
  Podstring:=  copy(URL,1,7);
  if Podstring = 'http://' then
  begin
     Result:='Greska: Uneti URL nema odgovarajucu strukturu';
     Pocetak:= pos(PocZnak,URL,1);
     if Pocetak = 0 then Exit;
     Kraj:= pos(ZavrsZnak,URL,Pocetak+1);
     if Kraj = 0 then Exit;
     Result:=copy(URL,Pocetak+Length(PocZnak),Kraj-Pocetak-Length(PocZnak));
  end else Result:='Greska: Uneti URL nije Adresa.';


end;


 
Odgovor na temu

mica99
Srbija

Član broj: 243749
Poruke: 90
*.smileytv.rs.



+1 Profil

icon Re: Izvlacenje promenljive vrednosti iz URL-a15.06.2018. u 23:03 - pre 70 meseci
Super,

Hvala vam puno naručito Milanu za gotovo rešenje
 
Odgovor na temu

Predrag Supurovic
Pedja YT9TP
Užice

Član broj: 157129
Poruke: 6275

Sajt: pedja.supurovic.net


+1570 Profil

icon Re: Izvlacenje promenljive vrednosti iz URL-a16.06.2018. u 07:04 - pre 70 meseci
https://stackoverflow.com/ques...03063/how-do-i-parse-a-web-url

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Izvlacenje promenljive vrednosti iz URL-a

[ Pregleda: 1230 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.