delphi 7 de geliştirmiş olduğum programın medulanın ws-security ile beraber yeni adresine taşınması ile çalışmaz oldu bende delphi xe6 temin ettim wsdl importer ile HastaKabulIslemleriws pas dosyasını yükledim ancak var olan kodlar bu yeni servislerde çalışmadı aşşağıda da göründüğü üzere GetHastaKabulIslemleri(False, '',HTTPRIO1);
satırında hata veriyor daha önceki servisin içerisinde GetHastaKabulIslemleri function u var ken yeni servisler de bu function yok bu aşamada bana yardım etmenizi bekliyorum iyi gunler
Kod: Tümünü seç
function TMedula_islem.Takipoku(takipno: string): boolean;
var
Giris : TakipOkuGirisDVO;
sonuc : HastaKabulIslemleri;
cevap :TakipDVO;
begin
QRH.Open;
TRY
HTTPRIO1.HTTPWebNode.UserName:=FloatToStr(QRHGSS_TESIS_KODU.Value);
HTTPRIO1.HTTPWebNode.Password:=QRHGSS_SIFRE.Value;
sonuckodug:='';
sonucmesajig:='';
takiptarihig:='';
branskodug:='';
tedaviturug:='';
provizyontipig:='';
sonuc:=GetHastaKabulIslemleri(False, '',HTTPRIO1);
frmiptal.Memo1.Lines.Add(takipno+' : Takip No Medulaya Gönderiliyor,bekleyiniz.');
Giris:=TakipOkuGirisDVO.Create;
giris.saglikTesisKodu:=StrToInt(FloatToStr(QRHGSS_TESIS_KODU.Value));
giris.takipno:=takipno;
Application.ProcessMessages;
frmiptal.Memo1.Lines.Add('Cevap Alınıyor...');
cevap:=sonuc.hastaKabulOku(giris);
frmiptal.Memo1.Lines.Add('Cevap Alındı.');
with cevap do
Begin
sonucmesajig:=sonucMesaji;
sonuckodug:=sonucKodu;
takiptarihig:=takipTarihi;
branskodug:=bransKodu;
tedaviturug:=tedaviTuru;
provizyontipig:=provizyonTipi;
end;
frmiptal.Memo1.Lines.Add('Kontroller uygulaniyor.');
if (StrToInt(cevap.sonucKodu)=0) then result:=True else result:=False;
giris.Free;
cevap.Free;
takipno:='';
except on e:exception do
begin
raise Exception.Create(E.Message+#13+'Oluşan hata nedeniyle medula sorgusu yapılamıyor...');
result:=False;
// Medula_islemleri.Close;
end;
end;
end;