Delphi a cookies

jorg22

Pls vie mi niekto poradit ako priradim cookies ku poziadavke IdHTTP1.Get ?
thx

//autoeditácia príspevku ( 19 Jun 2008, 18:03 )
No uz som si to zistil z dokumentacie Indy

, ale mam este jeden problem, ako poslat poziadavku GET na server cez Indy, robim to takto:

Kód: Vybrať všetko

IdHTTP1.Get(URL);

ale ked tam zadam URL napr.

Kód: Vybrať všetko

http://www.hojko.com/posting.php?mode=reply&t=96487

tak z nejakeho dovodu vymaze z URL '&' skusal som tam dat aj dva krat '&' ale nejde.
Ako to mam vyriesit? thx.

zaggi

nepoznam sice nic z menovaneho, ale skus namiesto & napisat &

nevidím dôvod prečo by to malo kúsok url odseknúť, a dokonca mi to ani nerobí (ani som sa nikde nedočítal že by mal dakto rovnaký problém ako ty) takže chyba bude niekde inde. Možno posielaš zlý header, nebere ťa ako prihláseného a preto ti hodí inde ako čakáš. Ako si zistil že ti & odfajčí?

x0_0x

mozno \&

žiadne lomítko, žiadne & Ono to musí ísť, a aj ide. Neviem prečo to jemu nejde, ale určite robí niečo iné zle

jorg22

sorry ja som si to dostatocne neoveril

, ide totak jak ma thx.

//autoeditácia príspevku ( 19 Jun 2008, 22:09 )
este jednu radu by som potreboval, chcem co najjednoduchsie rozdelit riadky textu do pola akoby sa to dalo, nieje na to nejaka funkcia?

pozri si triedu TStrings a hlavne delimiter a delimitedtext by ťa malo zaujímať. Použiješ to potom nejak takto: http://delphi.about.com/cs/adptips2002/ ... 1102_5.htm

jorg22

No takto nejak som to zatial robil ale pri TStrings mi nejde pouzit napr. prikaz High, takze by som potreboval napr. do podmienky urcit kolko prvkov ma TStrings tak neviem ako preto som chcel pole.

jorg22 napísal:No takto nejak som to zatial robil ale pri TStrings mi nejde pouzit napr. prikaz High, takze by som potreboval napr. do podmienky urcit kolko prvkov ma TStrings tak neviem ako preto som chcel pole.

count ti vráti počet prvkov. Napr. ak máš deklarované a:TStrings, a potom samozrejme a:=TStrings.create a nahádzané nejaké veci v ňom, tak a.count ti vráti integer koľko prvkov obsahuje.

jorg22

Thx super ide to

//autoeditácia príspevku ( 22 Jun 2008, 17:16 )
Znova potrebujem pomoc, mam dva formulare, ten druhy zobrazujem prikazom Form2.ShowModal, a potrebujem z Form2.Edit1 dostat text do premennej vo Form1, ako to spravim? thx

//edit: este jednu vec neviem preco ked vytvorim komponentu TOpenDialog a otvorim ju v s defaultnym priecinkom 'subory/sklo/' tak mi vypise chybu

Invalid filename

v tejto casti kodu:

Kód: Vybrať všetko

 if not DirectoryExists('subory/sklo/' + Miestnost_Nazov) then
  begin
     MkDir('subory/sklo/' + Miestnost_Nazov);
  end;

k prvej otázke:
vo form2 dáš do uses Form1 (ak ho nedáš, a iba sa naň odvoláš ako uvidíš ďalej, tak ti ho ponúkne pridať, dáš ok a dopíše ho samé), a potom premennú využívaš klasicky, takto: form1.premenna:='nieco';
(aj keď by som to takto neriešil, zbytočne pridávať unit do form2. Využil by som modalresult a odvolával sa iba z prvého na druhý, nie aj späť)

k druhej časti:
máš v tom roote svojho programu vytvorené adresáry miestnosť a v ňom sklo? Lebo chybu tam nevidím.

jorg22

Skusal som dat do uses Form1 ale nepomohlo to, a 'modalresult' neviem vobec co je, das nejaky link kde to je dobre popisane?

A s tym dialogom nemoze byt ten problem ze ja do toho priecinku kde sa defaultne otvori zapisujem kazdych 5 sekund?
Ten priecinok urcite existuje, a zblbne to len vtedy ak sa prave zapisuje do priecinku 'subory/sklo', pritom mne sa ten dialog otvara s defaultnym priecinkom 'subory'.

tu máš ukážku na ten modalresult čo som narýchlo spravil. Pozri si to. Vo form2 vďaka tomu nemám ani riadok kodu (iba veci čo sú potrebné, ale nič som do neho neprogramoval) a tiež sa nemusím spätne odkazovať na prvý form.

s tým opendialogom nejak nechápem o čo ti vlastne ide. To že do toho adresára zapisuješ s tým nič nemá, musíš mať niekde zle definovanú cestu

jorg22

thx za ten kod,

Ten opendialog ked nezapisujem do toho priecinku tak funguje normalne skusim to este raz pozriet poriadne a napisem keby som to nevyriesil.

//autoeditácia príspevku ( 24 Jun 2008, 19:24 )
Uz to vsetko funguje jak ma len ten opendialog mi robi stale problem, nieje za to nejaka nahrada alebo nieco podobne, lebo uz ma nic nenapada kde moze byt chyba.

nie, za opendialog nie je náhrada. Ešte raz si pozri poriadne kod, určite na 10000% tam bude chyba (ak teda vravíš že tá adresárova štruktúra na disku existuje)

jorg22

a na co by som mal konkretne pozerat, ten opendialog to je kod na par riadkov tam som skusal vsetko menit a inde uz s opendialogom nerobim.
Takto to vyzera:

Kód: Vybrať všetko

procedure TForm1.Button6Click(Sender: TObject);
var
  OtvorDialog : TOpenDialog;
begin
  OtvorDialog:= TOpenDialog.Create(self);
  OtvorDialog.InitialDir:= 'subory';
  OtvorDialog.Filter:= 'Súbory archívu|*.html';
  OtvorDialog.FilterIndex := 1;
  if OtvorDialog.Execute then
  begin
    WebBrowser2.Navigate(OtvorDialog.FileName);
    Label3.Caption:= OtvorDialog.FileName;
  end;
  OtvorDialog.Free;
end;

hmm tak to je zvláštne, možno to teda bude súvisieť s tým neustálym zápisom

jorg22

hej robi to iba ked sa zapisuje do toho priecinku, takze kazdych 5 sekund vyhodi chybu.

možno je teda problém pri zapisovaní

jorg22

ale mne to zapisovanie normalne ide, iba ak otvorim opendialog tak to zblbne.