Delphi Forum

@csunguray aslında normal yoldan import olmuyor.Sizin google gruplardaki yazılarınızdan bu yukarıdaki import yönteminizi bulmuştum.Ve bu yukarıdaki yazdıklarınıza göre import yapmıştım aslında.Ama enteresan farklı çıkıyor.Ben XE 10 ile yaptım bu import işlemini. Tekrar kontrol edip sonucu buraya yaz...

@csunguray yanlış anlamayın.Daha ayrıntılı bilgi verirseniz dediğiniz için kodları atmanın daha açıklayıcı olduğunu düşündüğümden kodları attım.
İlginize tekrar teşekkür ederim.

@csunguray çok teşekkürler.
Proje aşağıda.
EreceteDeneme.rar - 2.9 MB

@csunguray teşekkürler. Sizin kullandığınız WDSL ile bizim kullandığımız WDSL farklı.Sanırım o yüzden Sonuc := Servis.ereceteGiris(Giris); satırı bizde şu hatayı veriyor. [dcc32 Error] Unit1.pas(364): E2010 Incompatible types: 'ereceteGiris' and 'ereceteGirisIstekDVO' Ben zaten sizin kodlarınızı goo...

1.WDSL dosyasını manuel olarak import ettim.Google gruplarda bu konuda epey bir yazışma var.Muhtemelen görmüşsünüzdür.Direkt olarak siteden import etmiyor.İndirip pc den import ediyorum. 2.XE 10 3.Free işleminide yaptım ama sonuç değişmedi. 4.C# projesi sadece exe.Biz o exeye kendi oluşturduğumuz xm...

İlk gönderdiğim kodda eksikler varmış. Düzelttim. Kodun son hali: HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := UserName; HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := Parola; HTTPRIO1.HTTPWebNode.UseUTF8InHeader := True; Servis := GetSaglikTesisiReceteIslemleri(False, ReceteIslemleriServiceWS, ...

@ertank ilgilendiğiniziçin gerçekten minnettarım.Doğru şekilde giden xmli c# exeden gidendan alabilirim. Tamamen bu konuda yetersiz olduğumdan soruyorum.Bu HTTPRIO ile gönderdiğim XML i nasıl alabilirim.Bu konuda da yardımcı olabilirseniz çok memnun olurum. Birde kişi bilgisi gitmiyor demişsiniz ya....

Pardon yanlış wdsl göndermişim.
Reçete işlemleri pas aşağıda...

saglikTesisiReceteIslemleriWS.pas - 204 KB

Merhaba;

saglikTesisiYardimciIslemleriWS.pas - 52 KB

Arkadaşlar merhaba; Yazılımımızda e reçete gönderimlerini normalde c# ile yazılmış bir uygulamadan gönderiyoruz.Ancak bir yazılımımızda delphiden göndermemiz gerekti. Aşağıda kod örneği var. Ama Showmessage den sonra access violation veriyor.Sanırım cevap nesnesi oluşmuyor.Yani gönderim oluşmuyor. B...

Arkadaşlar yazmış olduğumuz programların setupları smart screene takılmakta.Malum Windos Kişisel Bilgisayarınızı Korudu.Bu Program bilgisayarınıza zarar verebilir uyarısından bahsediyorum.Setuplarımız exe uzantılı.Aslında bu setuplarımız 10 yıldan beridir internetten download edilmekte ama Smart Scr...

@ertank çok teşekkürler.Üstteki kodda transaction farklı olduğundan olmuyormuş. Kodu aşağıdaki gibi düzeltince oldu. Sağolasın. procedure TFrmKasa.BakiyeSifirla; var XQuery: TpFIBQuery; AAA,BBB:string; begin AAA:='USER_TRANSACTION'; BBB:= 'bky#'; XQuery := TpFIBQuery.Create(Application); XQuery.Data...

Sorgu öncesi şöyle bir kod çalıştırıyorum ama yemiyor. procedure TFrmKasa.BakiyeSifirla; var XQuery: TpFIBQuery; AAA,BBB:string; begin AAA:='USER_TRANSACTION'; BBB:= 'bky#'; XQuery := TpFIBQuery.Create(Application); XQuery.Database := dm.IBDatabase1; XQuery.Transaction := dm.UmumiTransaction; XQuery...

Bunu nasıl yapacağım.
İşin doğrusu kod hakkında çok bir bilgim yok.O yüzden yapamadım belki.
Bu konuda bir örnek verebilirseniz çok memnun olurum.
Teşekkürler.

Arkadaşlar forumdan araştırarak aşağıdaki kod ile kasa hesabında yürüyen bakiye uygulaması yaptım. Ancak sorun şu ki sorgu ilk çalıştırıldığında doğru sonuç veriyor ancak sonra ki her çalıştırıldığında, programı kapatıp açmadan yani bakiye 2360 TL artıyor.Bu 2360 TL nin bir mantığınıda kuramadım.Ama...