idHTTP1-Sms Gönderim Kodu

[Akin_Delphi]

dediğin gibi outboxname'i de temin ettim ve koda ekledim. ama burdaki hata çok daha farklı bişey.
xml versiyonu quoted string olmalıdır. yani birinci satırdaki xml version bilgisi yazılışında bi problem var.

Kod: Tümünü seç

90 XML Parser Hatasi : The value following "version" in the XML declaration must be a quoted string.
HTTP/1.1 200 OK

Kod: Tümünü seç

str:='<?xml version="1.0" encoding="iso-8859-9" ?>';

Sayın Nitrokonat,

Verilen hata mesajından kullandığınız HTTP protokolünün versiyonunun 1.1 ve xml versiyonunun ise 1.0 olduğu anlaşılıyor.

Hatırladığım kadarıyla IdHTTP'de protokol versiyonu da tanımlayabiliyorsunuz. Özelliklerin arasında bulunmalı, yanlış hatırlamıyorsam (D5'te) ProtocolVersion gibi bir şey olmalı. Bir de 1.0'ı deneseniz.
Saygılarımla

[nitro]

ben @cinAnka arkadaşımızdan çalışan kodu aldım. açmaya çalıştığım zaman aşağıdaki hatayı verdi.
bu hatayı neden verir? delphi versiyonlarımız mı farklı acaba?
ben delphi 7 kullanıyorum.

Error reading idHTTP1.request.proxyport: Property ProxyPort does not
exist. Ignore the erro and continue?

[nosedive]

Aynı hatayı bende yaşadım. Tam olarak bu hatayı çözdünüzmü ?

[CinAnka]

Arkadaşlar, yaşadığınız sıkıntı delphi versiyonlarınızdan kaynaklanıyor. Sayın @nitrokonat ile daha önce bu konuda birebir deneme yaptığımızda, gördük ki, delphi6 da sorunsuz çalışan ihttp componenti delphi 7 de xml combinasyonunda hata veriyor. mutlaka delphi 7 de bir çözümü vardır ama ben delphi 6 da sms programını başarı ile tamamlamıştım...

[nosedive]

yapma kardeş...şimdi delphi 6.0 nerden bulalım...bunun yöntemini bulmak lazım.

[mrmarman]

Delphi 7 'de Indy 9 var. Onun için Proxy ayarlarını aşağıdaki kullanmalısınız... O zaman çalışır..

Kod: Tümünü seç

  IdHttp1.ProxyParams.ProxyServer   := '';
  IdHttp1.ProxyParams.ProxyPort     := 0;
  IdHttp1.ProxyParams.ProxyUsername := '';
  IdHttp1.ProxyParams.ProxyPassword := '';

[nosedive]

hayır ne yaparsanız yapın aynı hata....bu hatayı aşamadım...ayrıca

şoyle bi yolda denedim

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var 
HTTPReq:TXMLHTTPRequest; 
XMLStructe:TStringList; 
DonusBilgisi:String; 
begin
try
XMLStructe:=TStringList.create;
XMLStructe.LoadFromFile('c:\of.xml');
HTTPReq:=TXMLHTTPRequest.Create(nil); 
HTTPReq.open('GET','http://www.biotekno.biz:8080/SMS-Web/xmlsms',false);
HTTPReq.send(XMLStructe.Text);
DonusBilgisi := HTTPReq.responseText;
Memo1.Text := DonusBilgisi;
finally
XMLStructe.free; 
HTTPReq.free; 
end;
end;

buradada 90 string index out of range 8

hatası alıyorum..Firmayı aradım.. xml dosyanız hiç bir şekilde post olmuyor diyor...ordan kendileri benim xml dosyamı php ile post ettiklerinde çalışıyor...ama ben delphi ile o xml i link e post edemiyormuşum...gerçek bu...

Yardımınızı bekliyorum.

[nosedive]

ilk olaya değilde şu ikinci yöntemi çalıştırdım...sorun xml dosyasından kaynaklanıyormuş...XML dosyasını tek satır halinde yollarsanız sorunsuz işlem gerçekleşti...