http://www.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx

ikurt07 · Mesaj gönderen **ikurt07** » 24 Tem 2006 04:23

bu sayfada post metodunu kullanan varmı

Mesaj gönderen **mkysoft** » 24 Tem 2006 04:28

neden 2. bir başlık daha açtın anlamadım.

Mesaj gönderen **mkysoft** » 24 Tem 2006 04:33

Sitede autorization kontrolü var. sayfayı boş olarak çağırmalısın. autorization codunu alıp ondan sonra sorgulama yapabilirsin. Bunun için indy içindeki nesneleri kullanabilirsin.

ikurt07 · Mesaj gönderen **ikurt07** » 24 Tem 2006 04:34

1. başlık sanırım anlaşılır değildi.

ikurt07 · Mesaj gönderen **ikurt07** » 24 Tem 2006 05:19

biraz daha açabilirmisin

Mesaj gönderen **mkysoft** » 25 Tem 2006 11:17

İş yerindeki bilgisayarda delphi yok. evdede internet yok

Bu nedenle denem şansım yok ama indy bileşenleri ile post yapılabildiğini biliyorum.

Kod: Tümünü seç

<form name="frmPlakaSorgu" method="post" action="wfAracBilgSorgulama.aspx" id="frmPlakaSorgu">
<input type="hidden" name="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" value="" />
<input type="hidden" name="__VIEWSTATE" value="64 bit autorization code yada php'de SID diye geçer" />
<input name="txtPlaka" type="text" maxlength="8" id="txtPlaka" /></form>

asıl sorgu formu bu sanırım. SID doğru olmadan server sana cevap vermez. sayfayı aynı ip'den her açtığında sana aynı SID numarasını verecektir.

Eğer ararsan indy ile nasıl değişken post edebileceğini bulursun.

wfAracBilgSorgulama.aspx
sayfasına
__EVENTTARGET
__EVENTARGUMENT
__VIEWSTATE
txtPlaka
değişkenlerini post etmelisin.

kolay gelsin.

ikurt07 · Mesaj gönderen **ikurt07** » 25 Tem 2006 01:21

Kodu bu şeklilde mi yazmam gerekiyor

var
str:tstringlist;
response:tstringstream;
begin
str := TStringList.Create;
Response:= TStringStream.Create('');
try
str.Clear;
IdHTTP1.Disconnect;
str.Add('__EVENTTARGET ');
str.Add('__EVENTARGUMENT');
str.Add('__VIEWSTATE');
str.Add('txtPlaka=07kd975');
IdHTTP1.Post('http://www.trafik.gov.tr/IAS/IAS/wfArac ... r,Response);
memo1.text := Response.DataString;
except
on e: exception do begin
memo1.text:='';
end;
end;
str.Free;
Response.Free;

Mesaj gönderen **mkysoft** » 25 Tem 2006 03:47

bu şekilde olmalı ama __VIEWSTATE değişkenine 64 bit lik SID eklemelisin.

Mesaj gönderen **mkysoft** » 25 Tem 2006 03:59

wap destediğide çıkmış eminim daha kolay olur.

ikurt07 · Mesaj gönderen **ikurt07** » 28 Tem 2006 11:19

BU konuda Bilgisi Olan arkadaşlar
YARDIMCI OKURSANIZ Sevinirim

ikurt07 · Mesaj gönderen **ikurt07** » 31 Tem 2006 11:03

İlginiz için teşekkürler sorunu hallettim

guney · Mesaj gönderen **guney** » 01 Eyl 2006 03:14

..........

IdHTTP1.Post('http://www.trafik.gov.tr/IAS/IAS/wfArac ... r,Response);

.........

kodunda bir str değişkeni string olarak almıyor. bu yüzden kodda hata veriyor.

ayrıca response yi kabul etmiyor.

ben bu kodu denedim . hataları gecmek için reponse yi kaldırdım. str yerine str.text koydum.

bu sefer hatasız gecti ama memo alana hiç bişe getirmedi.

internetten plaka ile arac ve borc sorgulatma ile ilgili çalışan kodu olan varsa dönebilir mi ?

yada bu koddu kullanırken eksikliğimi söyleye bilir mi ?

ikurt07 · Mesaj gönderen **ikurt07** » 04 Eyl 2006 09:38

Çözümü şu şekilde buldum...

VAR
I : Integer;
Web_Url,S : String;
S2:String;
begin
S := PlakaNoE.Text;

Memo1.Text := 'http://www.trafik.gov.tr/IAS/IAS/wfArac ... VIEWSTATE=
dDwtMTQyNjU5Mjk4Mjt0PDtsPGk8MT47PjtsPHQ8O2w8aTw5PjtpPDExPjtpPDEzPjtpPDE1PjtpPDE3PjtpPDE5PjtpPDIxPjtpPDIzPjtpPDI1
PjtpPDI3PjtpPDI5PjtpPDMxPjtpPDMzPjtpPDM1PjtpPDM3PjtpPDM5PjtpPDQxPjtpPDQzPjtpPDQ1PjtpPDQ3PjtpPDQ5PjtpPDUxPjtpPDUzPjt
pPDU1Pjs%2BO2w8dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxw
PHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxv
PGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47d
DxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%
2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bD
xvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDx
WaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47Oz47dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2BOz4%2BOz47
Oz47dDxwPGw8VmlzaWJsZTs%2BO2w8bzxmPjs%2BPjs7Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PHA8bDxpbm5lcmh0bWw7VmlzaWJsZTs%2BO2w8X
GU7bzxmPjs%2BPjs7Pjt0PHA8cDxsPFZpc2libGU7PjtsPG88Zj47Pj47Pjs7Pjt0PHA8bDxpbm5lcmh0bWw7VmlzaWJsZTs%2BO2w8XGU7bzxmPjs%2BPjs7Pjt0PHA8cDx
sPFRleHQ7PjtsPCBTb3JndWxhbWFuxLF6YSBlc2FzIG9sYW4gdmVyaSBnw7xuY2VsbGVtZXNpIDI3LjA3LjIwMDYgdGFyaWhpbmRlIGdlcsOnZWtsZcWfbWnFn3Rpci5cP
GJyXD47Pj47Pjs7Pjs%2BPjs%2BPjtsPGltZ1Nvcmd1bGE7Pj710ayCUH%2FdJPmDOloLtG58kDHVEA%3D%3D&txtPlaka='
Web_Url := Memo1.Text+S+'&imgSorgula.x=75&imgSorgula.y=12';
PlakaWB.Navigate(Web_Url);

guney · Mesaj gönderen **guney** » 04 Eyl 2006 09:52

hocam s değişkeni nerede kullanıyorsun.

aşağıdaki kodda olduğu gibimi

IdHTTP1.Post('http://www.trafik.gov.tr/IAS/IAS/wfArac ... ma.aspx',s);

kod böyle ise str tstringlist değişkenini ve response tstringstream nerde kullanıyorsun ?

birde

memo1.text := Response.DataString;

kodu memo alana hiç bir değer getirmiyor.

ikurt07 · Mesaj gönderen **ikurt07** » 04 Eyl 2006 12:31

Tam olarak yapmak istediğin şey nedir....

Delphi Forum

http://www.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx

http://www.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx

Anlaşılır

Cahillik zor zanaat

aslına bakarsan bu konuda hiç bir bilgim yok

Halledemedik.

Cavabı buldum.

Çözüm

Yapmak İstediğin şey ?