Delphi 7 ile ssk,bağkur,emekli san. , yeşilkart provizyon al

[ALUCARD]

Merhaba arkadaşlar,
HBYS sektörüne yeni yeni giriş yapıyorum
delphi 7 kullanıyoum ve medulanın wsdl lerinin delphi7 de nasıl kullanıldıpını bilmiyorum.
burdaki forumda ve internette araştırma yaptım. SOAP kullanarak yapmış bazı arkadaşlar.
ben wsdl leri inport edebiliyorum. formun uses kısmına da ekliyorum. ama sgk ya sorguyu nasıl göndereceğimi ve cevabı nasıl yakalacağımı bir türlü bulamadım.
bu konuda bilgisi olan bi arkadaş bana yol gösterişrse çok sevinirim.

[tinekci]

Selam,

Arkadaşım Eğer Import Islemını Duzgun Yapabildiysen Zaten Oluşan Class İçinde
Gerekli Fonksiyonlar geliyor

function hastaYatisOku(const hastaYatisOkuDVO: HastaYatisOkuDVO): HastaYatisOkuCevapDVO; stdcall;
function updateProvizyonTipi(const provizyonDegistirDVO: ProvizyonDegistirGirisDVO): ProvizyonDegistirCevapDVO; stdcall;
function hastaKabulIptal(const takipSilGiris: TakipSilGirisDVO): TakipSilCevapDVO; stdcall;
function hastaCikisIptal(const hastaCikisIptal: HastaCikisIptalDVO): HastaCikisCevapDVO; stdcall;
function updateTedaviTipi(const takipOkuDVO: TakipOkuGirisDVO): TakipDVO; stdcall;
function hastaKabulAileHekimiKDS(const provizyonGiris: ProvizyonGirisKdsDVO): ProvizyonCevapDVO; stdcall;
function hastaKabulKDS(const provizyonGiris: ProvizyonGirisKdsDVO): ProvizyonCevapDVO; stdcall;
function hastaCikisKayit(const hastaCikis: HastaCikisDVO): HastaCikisCevapDVO; stdcall;
function hastaKabul(const provizyonGiris: ProvizyonGirisDVO): ProvizyonCevapDVO; stdcall;
function basvuruTakipOku(const basvuruTakipOkuDVO: BasvuruTakipOkuDVO): BasvuruTakipOkuCevapDVO; stdcall;
function sevkBildir(const sevkBildirGiris: SevkBildirGirisDVO): SevkBildirSonucDVO; stdcall;
function hastaKabulOku(const takipOkuGiris: TakipOkuGirisDVO): TakipDVO; stdcall;

gibi..

[ALUCARD]

işte ben bu fonksiyonları nsıl kullanacağımı bilemiyorum

bi örnek olursa çok sevinrim.

[tinekci]

Dostum bu fonksiyonları kullanabilmen ıcın delphi de class kullanımı konusunu iyi bilmen gerekiyor..

Tavsiyemi istersen önce bu konuyu arastır. Yoksa ısın zor.

[tinekci]

eğer kucuk bır ornek ıstersen


var
hastayatis: HastaYatisOkuDVO;
hastayatiscevap: HastaYatisOkuCevapDVO;
begin
hastayatis:=HastaYatisOkuDVO.create;
hastayatiscevap:=HastaYatisOkuCevapDVO.create;

hastayatiscevap:=hastayatisoku(hastayatis);
end;


gibi

[ALUCARD]

Kod: Tümünü seç

<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
	<SOAP-ENV:Body>
		<m:hastaKabul xmlns:m="http://servisler.ws.gss.sgk.gov.tr">
			<provizyonGiris>
				<yakinlikKodu>String</yakinlikKodu>
				<yatisBitisTarihi>String</yatisBitisTarihi>
				<bransKodu>String</bransKodu>
				<devredilenKurum>String</devredilenKurum>
				<donorTCKimlikNo>String</donorTCKimlikNo>
				<hastaTCKimlikNo>String</hastaTCKimlikNo>
				<provizyonTarihi>String</provizyonTarihi>
				<provizyonTipi>String</provizyonTipi>
				<saglikTesisKodu>0</saglikTesisKodu>
				<sigortaliTuru>String</sigortaliTuru>
				<takipNo>String</takipNo>
				<takipTipi>String</takipTipi>
				<tedaviTipi>String</tedaviTipi>
				<tedaviTuru>String</tedaviTuru>
				<yeniDoganBilgisi>
					<cocukSira>0</cocukSira>
					<dogumTarihi>String</dogumTarihi>
				</yeniDoganBilgisi>
			</provizyonGiris>
		</m:hastaKabul>
	</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

elimde bu wdsl var bunu altova xmlspy programıyola çalıştırdığımda cevap alıyorum.

bunu webservise nasıl yollayacağım onu bulamadım bi türlü

[tinekci]

Arkadaşım yaptığın wsdl importu değil senin yaptığın xml import
bu şeklide medula ıle haberlesmezsin...

Wsdl Import ettiğinde oluşan class aşağıdaki gibi olmalı

ımport edilen wsdl adresi:
http://saglikt.sgk.gov.tr/medulaws/serv ... mleri.wsdl

Kod: Tümünü seç

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://saglikt.sgk.gov.tr/medulaws/services/HastaKabulIslemleri/wsdl/HastaKabulIslemleri.wsdl
//  >Import : http://saglikt.sgk.gov.tr/medulaws/services/HastaKabulIslemleri/wsdl/HastaKabulIslemleri.wsdl>0
//  >Import : http://saglikt.sgk.gov.tr/medulaws/services/HastaKabulIslemleri/wsdl/HastaKabulIslemleri.wsdl>1
// Encoding : UTF-8
// Version  : 1.0
// (25.01.2011 16:06:12 - - $Rev: 25127 $)
// ************************************************************************ //

unit HastaKabulIslemleri1;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_UNBD = $0002;
  IS_NLBL = $0004;
  IS_UNQL = $0008;
  IS_REF  = $0080;


type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:base64Binary    - "http://www.w3.org/2001/XMLSchema"[Gbl]

  HastaYatisOkuDVO     = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  HastaYatisOkuCevapDVO = class;                { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  BasvuruYatisBilgileriDVO = class;             { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  ProvizyonDegistirGirisDVO = class;            { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  ProvizyonDegistirCevapDVO = class;            { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  TakipSilGirisDVO     = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  TakipSilCevapDVO     = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  HastaCikisIptalDVO   = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  HastaCikisCevapDVO   = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  TakipOkuGirisDVO     = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  TakipDVO             = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  HastaBilgileriDVO    = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  ProvizyonGirisKdsDVO = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  YeniDoganBilgisiDVO  = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  ProvizyonCevapDVO    = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  SigortaliAdliGecmisDVO = class;               { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  HastaCikisDVO        = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  ProvizyonGirisDVO    = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  BasvuruTakipOkuDVO   = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  BasvuruTakipOkuCevapDVO = class;              { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  BasvuruTakipDVO      = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  SevkBildirGirisDVO   = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }
  SevkBildirSonucDVO   = class;                 { "http://dvo.gss.sgk.gov.tr"[GblCplx] }



  // ************************************************************************ //
  // XML       : HastaYatisOkuDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  HastaYatisOkuDVO = class(TRemotable)
  private
    FhastaBasvuruNo: string;
    FsaglikTesisKodu: Integer;
  published
    property hastaBasvuruNo:  string   Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property saglikTesisKodu: Integer  Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
  end;

  ArrayOfBasvuruYatisBilgileriDVO = array of BasvuruYatisBilgileriDVO;   { "http://dvo.gss.sgk.gov.tr"[GblCplx] }


  // ************************************************************************ //
  // XML       : HastaYatisOkuCevapDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  HastaYatisOkuCevapDVO = class(TRemotable)
  private
    FdonorTck: string;
    FyeniDoganCocukSiraNo: string;
    FyeniDoganDogumTarihi: string;
    FsonucKodu: string;
    FsonucMesaji: string;
    FbasvuruYatisBilgileri: ArrayOfBasvuruYatisBilgileriDVO;
    FhastaBasvuruNo: string;
    FsaglikTesisiKodu: Integer;
  public
    destructor Destroy; override;
  published
    property donorTck:              string                           Index (IS_NLBL or IS_UNQL) read FdonorTck write FdonorTck;
    property yeniDoganCocukSiraNo:  string                           Index (IS_NLBL or IS_UNQL) read FyeniDoganCocukSiraNo write FyeniDoganCocukSiraNo;
    property yeniDoganDogumTarihi:  string                           Index (IS_NLBL or IS_UNQL) read FyeniDoganDogumTarihi write FyeniDoganDogumTarihi;
    property sonucKodu:             string                           Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji:           string                           Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
    property basvuruYatisBilgileri: ArrayOfBasvuruYatisBilgileriDVO  Index (IS_NLBL or IS_UNQL) read FbasvuruYatisBilgileri write FbasvuruYatisBilgileri;
    property hastaBasvuruNo:        string                           Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property saglikTesisiKodu:      Integer                          Index (IS_UNQL) read FsaglikTesisiKodu write FsaglikTesisiKodu;
  end;



  // ************************************************************************ //
  // XML       : BasvuruYatisBilgileriDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  BasvuruYatisBilgileriDVO = class(TRemotable)
  private
    FbaslangicTarihi: string;
    FbitisTarihi: string;
    Fdurum: string;
  published
    property baslangicTarihi: string  Index (IS_NLBL or IS_UNQL) read FbaslangicTarihi write FbaslangicTarihi;
    property bitisTarihi:     string  Index (IS_NLBL or IS_UNQL) read FbitisTarihi write FbitisTarihi;
    property durum:           string  Index (IS_NLBL or IS_UNQL) read Fdurum write Fdurum;
  end;



  // ************************************************************************ //
  // XML       : ProvizyonDegistirGirisDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  ProvizyonDegistirGirisDVO = class(TRemotable)
  private
    FsaglikTesisKodu: Integer;
    FtakipNo: string;
    FyeniProvizyonTipi: string;
  published
    property saglikTesisKodu:   Integer  Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
    property takipNo:           string   Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property yeniProvizyonTipi: string   Index (IS_NLBL or IS_UNQL) read FyeniProvizyonTipi write FyeniProvizyonTipi;
  end;



  // ************************************************************************ //
  // XML       : ProvizyonDegistirCevapDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  ProvizyonDegistirCevapDVO = class(TRemotable)
  private
    FhastaBasvuruNo: string;
    FsonucKodu: string;
    FsonucMesaji: string;
    FtakipNo: string;
    FyeniProvizyonTipi: string;
  published
    property hastaBasvuruNo:    string  Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property sonucKodu:         string  Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji:       string  Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
    property takipNo:           string  Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property yeniProvizyonTipi: string  Index (IS_NLBL or IS_UNQL) read FyeniProvizyonTipi write FyeniProvizyonTipi;
  end;



  // ************************************************************************ //
  // XML       : TakipSilGirisDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  TakipSilGirisDVO = class(TRemotable)
  private
    FsaglikTesisKodu: Integer;
    FtakipNo: string;
  published
    property saglikTesisKodu: Integer  Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
    property takipNo:         string   Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
  end;



  // ************************************************************************ //
  // XML       : TakipSilCevapDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  TakipSilCevapDVO = class(TRemotable)
  private
    FtakipNo: string;
    FsonucKodu: string;
    FsonucMesaji: string;
  published
    property takipNo:     string  Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property sonucKodu:   string  Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji: string  Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
  end;



  // ************************************************************************ //
  // XML       : HastaCikisIptalDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  HastaCikisIptalDVO = class(TRemotable)
  private
    FhastaBasvuruNo: string;
    FhastaCikisTarihi: string;
    FyeniHastaCikisTarihi: string;
    FsaglikTesisKodu: Integer;
  published
    property hastaBasvuruNo:       string   Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property hastaCikisTarihi:     string   Index (IS_NLBL or IS_UNQL) read FhastaCikisTarihi write FhastaCikisTarihi;
    property yeniHastaCikisTarihi: string   Index (IS_NLBL or IS_UNQL) read FyeniHastaCikisTarihi write FyeniHastaCikisTarihi;
    property saglikTesisKodu:      Integer  Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
  end;



  // ************************************************************************ //
  // XML       : HastaCikisCevapDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  HastaCikisCevapDVO = class(TRemotable)
  private
    FsonucKodu: string;
    FsonucMesaji: string;
    FyatisBaslangicTarihi: string;
    FyatisBitisTarihi: string;
  published
    property sonucKodu:            string  Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji:          string  Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
    property yatisBaslangicTarihi: string  Index (IS_NLBL or IS_UNQL) read FyatisBaslangicTarihi write FyatisBaslangicTarihi;
    property yatisBitisTarihi:     string  Index (IS_NLBL or IS_UNQL) read FyatisBitisTarihi write FyatisBitisTarihi;
  end;



  // ************************************************************************ //
  // XML       : TakipOkuGirisDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  TakipOkuGirisDVO = class(TRemotable)
  private
    FsaglikTesisKodu: Integer;
    FtakipNo: string;
    FyeniTedaviTipi: Integer;
  published
    property saglikTesisKodu: Integer  Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
    property takipNo:         string   Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property yeniTedaviTipi:  Integer  Index (IS_UNQL) read FyeniTedaviTipi write FyeniTedaviTipi;
  end;



  // ************************************************************************ //
  // XML       : TakipDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  TakipDVO = class(TRemotable)
  private
    FfaturaTeslimNo: string;
    FilkTakipNo: string;
    FbransKodu: string;
    FdonorTCKimlikNo: string;
    FhastaBasvuruNo: string;
    FhastaBilgileri: HastaBilgileriDVO;
    FkayitTarihi: string;
    FprovizyonTipi: string;
    FsonucKodu: string;
    FsonucMesaji: string;
    FtakipDurumu: string;
    FtakipNo: string;
    FtakipTarihi: string;
    FtakipTipi: string;
    FtedaviTipi: string;
    FtedaviTuru: string;
    FtesisKodu: Integer;
    FsevkDurumu: string;
    FyeniDoganCocukSiraNo: string;
    FyeniDoganDogumTarihi: string;
  public
    destructor Destroy; override;
  published
    property faturaTeslimNo:       string             Index (IS_NLBL or IS_UNQL) read FfaturaTeslimNo write FfaturaTeslimNo;
    property ilkTakipNo:           string             Index (IS_NLBL or IS_UNQL) read FilkTakipNo write FilkTakipNo;
    property bransKodu:            string             Index (IS_NLBL or IS_UNQL) read FbransKodu write FbransKodu;
    property donorTCKimlikNo:      string             Index (IS_NLBL or IS_UNQL) read FdonorTCKimlikNo write FdonorTCKimlikNo;
    property hastaBasvuruNo:       string             Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property hastaBilgileri:       HastaBilgileriDVO  Index (IS_NLBL or IS_UNQL) read FhastaBilgileri write FhastaBilgileri;
    property kayitTarihi:          string             Index (IS_NLBL or IS_UNQL) read FkayitTarihi write FkayitTarihi;
    property provizyonTipi:        string             Index (IS_NLBL or IS_UNQL) read FprovizyonTipi write FprovizyonTipi;
    property sonucKodu:            string             Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji:          string             Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
    property takipDurumu:          string             Index (IS_NLBL or IS_UNQL) read FtakipDurumu write FtakipDurumu;
    property takipNo:              string             Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property takipTarihi:          string             Index (IS_NLBL or IS_UNQL) read FtakipTarihi write FtakipTarihi;
    property takipTipi:            string             Index (IS_NLBL or IS_UNQL) read FtakipTipi write FtakipTipi;
    property tedaviTipi:           string             Index (IS_NLBL or IS_UNQL) read FtedaviTipi write FtedaviTipi;
    property tedaviTuru:           string             Index (IS_NLBL or IS_UNQL) read FtedaviTuru write FtedaviTuru;
    property tesisKodu:            Integer            Index (IS_UNQL) read FtesisKodu write FtesisKodu;
    property sevkDurumu:           string             Index (IS_NLBL or IS_UNQL) read FsevkDurumu write FsevkDurumu;
    property yeniDoganCocukSiraNo: string             Index (IS_NLBL or IS_UNQL) read FyeniDoganCocukSiraNo write FyeniDoganCocukSiraNo;
    property yeniDoganDogumTarihi: string             Index (IS_NLBL or IS_UNQL) read FyeniDoganDogumTarihi write FyeniDoganDogumTarihi;
  end;



  // ************************************************************************ //
  // XML       : HastaBilgileriDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  HastaBilgileriDVO = class(TRemotable)
  private
    Fad: string;
    Fcinsiyet: string;
    FdogumTarihi: string;
    Fsoyad: string;
    FtcKimlikNo: string;
    FsigortaliTuru: string;
  published
    property ad:            string  Index (IS_NLBL or IS_UNQL) read Fad write Fad;
    property cinsiyet:      string  Index (IS_NLBL or IS_UNQL) read Fcinsiyet write Fcinsiyet;
    property dogumTarihi:   string  Index (IS_NLBL or IS_UNQL) read FdogumTarihi write FdogumTarihi;
    property soyad:         string  Index (IS_NLBL or IS_UNQL) read Fsoyad write Fsoyad;
    property tcKimlikNo:    string  Index (IS_NLBL or IS_UNQL) read FtcKimlikNo write FtcKimlikNo;
    property sigortaliTuru: string  Index (IS_NLBL or IS_UNQL) read FsigortaliTuru write FsigortaliTuru;
  end;



  // ************************************************************************ //
  // XML       : ProvizyonGirisKdsDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  ProvizyonGirisKdsDVO = class(TRemotable)
  private
    FaileHekimiKDB: TByteDynArray;
    FbransKodu: string;
    FdevredilenKurum: string;
    FdonorTCKimlikNo: string;
    FhastaKDB: TByteDynArray;
    FprovizyonTipi: string;
    FsaglikTesisKodu: Integer;
    FsigortaliTuru: string;
    FtakipNo: string;
    FtakipTipi: string;
    FtedaviTipi: string;
    FtedaviTuru: string;
    FyatisBitisTarihi: string;
    FyeniDoganBilgisi: YeniDoganBilgisiDVO;
  public
    destructor Destroy; override;
  published
    property aileHekimiKDB:    TByteDynArray        Index (IS_UNQL) read FaileHekimiKDB write FaileHekimiKDB;
    property bransKodu:        string               Index (IS_NLBL or IS_UNQL) read FbransKodu write FbransKodu;
    property devredilenKurum:  string               Index (IS_NLBL or IS_UNQL) read FdevredilenKurum write FdevredilenKurum;
    property donorTCKimlikNo:  string               Index (IS_NLBL or IS_UNQL) read FdonorTCKimlikNo write FdonorTCKimlikNo;
    property hastaKDB:         TByteDynArray        Index (IS_UNQL) read FhastaKDB write FhastaKDB;
    property provizyonTipi:    string               Index (IS_NLBL or IS_UNQL) read FprovizyonTipi write FprovizyonTipi;
    property saglikTesisKodu:  Integer              Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
    property sigortaliTuru:    string               Index (IS_NLBL or IS_UNQL) read FsigortaliTuru write FsigortaliTuru;
    property takipNo:          string               Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property takipTipi:        string               Index (IS_NLBL or IS_UNQL) read FtakipTipi write FtakipTipi;
    property tedaviTipi:       string               Index (IS_NLBL or IS_UNQL) read FtedaviTipi write FtedaviTipi;
    property tedaviTuru:       string               Index (IS_NLBL or IS_UNQL) read FtedaviTuru write FtedaviTuru;
    property yatisBitisTarihi: string               Index (IS_NLBL or IS_UNQL) read FyatisBitisTarihi write FyatisBitisTarihi;
    property yeniDoganBilgisi: YeniDoganBilgisiDVO  Index (IS_NLBL or IS_UNQL) read FyeniDoganBilgisi write FyeniDoganBilgisi;
  end;



  // ************************************************************************ //
  // XML       : YeniDoganBilgisiDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  YeniDoganBilgisiDVO = class(TRemotable)
  private
    FcocukSira: Integer;
    FdogumTarihi: string;
  published
    property cocukSira:   Integer  Index (IS_UNQL) read FcocukSira write FcocukSira;
    property dogumTarihi: string   Index (IS_NLBL or IS_UNQL) read FdogumTarihi write FdogumTarihi;
  end;

  ArrayOfSigortaliAdliGecmisDVO = array of SigortaliAdliGecmisDVO;   { "http://dvo.gss.sgk.gov.tr"[GblCplx] }


  // ************************************************************************ //
  // XML       : ProvizyonCevapDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  ProvizyonCevapDVO = class(TRemotable)
  private
    FsigortaliAdliGecmisi: ArrayOfSigortaliAdliGecmisDVO;
    FhastaBasvuruNo: string;
    FhastaBilgileri: HastaBilgileriDVO;
    FsonucKodu: string;
    FsonucMesaji: string;
    FtakipNo: string;
  public
    destructor Destroy; override;
  published
    property sigortaliAdliGecmisi: ArrayOfSigortaliAdliGecmisDVO  Index (IS_NLBL or IS_UNQL) read FsigortaliAdliGecmisi write FsigortaliAdliGecmisi;
    property hastaBasvuruNo:       string                         Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property hastaBilgileri:       HastaBilgileriDVO              Index (IS_NLBL or IS_UNQL) read FhastaBilgileri write FhastaBilgileri;
    property sonucKodu:            string                         Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji:          string                         Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
    property takipNo:              string                         Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
  end;



  // ************************************************************************ //
  // XML       : SigortaliAdliGecmisDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  SigortaliAdliGecmisDVO = class(TRemotable)
  private
    FprovTarihi: string;
    FprovTipi: string;
    FtckNo: string;
  published
    property provTarihi: string  Index (IS_NLBL or IS_UNQL) read FprovTarihi write FprovTarihi;
    property provTipi:   string  Index (IS_NLBL or IS_UNQL) read FprovTipi write FprovTipi;
    property tckNo:      string  Index (IS_NLBL or IS_UNQL) read FtckNo write FtckNo;
  end;



  // ************************************************************************ //
  // XML       : HastaCikisDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  HastaCikisDVO = class(TRemotable)
  private
    FhastaBasvuruNo: string;
    FhastaCikisTarihi: string;
    FsaglikTesisKodu: Integer;
  published
    property hastaBasvuruNo:   string   Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property hastaCikisTarihi: string   Index (IS_NLBL or IS_UNQL) read FhastaCikisTarihi write FhastaCikisTarihi;
    property saglikTesisKodu:  Integer  Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
  end;



  // ************************************************************************ //
  // XML       : ProvizyonGirisDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  ProvizyonGirisDVO = class(TRemotable)
  private
    FyakinlikKodu: string;
    FyatisBitisTarihi: string;
    FbransKodu: string;
    FdevredilenKurum: string;
    FdonorTCKimlikNo: string;
    FhastaTCKimlikNo: string;
    FprovizyonTarihi: string;
    FprovizyonTipi: string;
    FsaglikTesisKodu: Integer;
    FsigortaliTuru: string;
    FtakipNo: string;
    FtakipTipi: string;
    FtedaviTipi: string;
    FtedaviTuru: string;
    FyeniDoganBilgisi: YeniDoganBilgisiDVO;
  public
    destructor Destroy; override;
  published
    property yakinlikKodu:     string               Index (IS_NLBL or IS_UNQL) read FyakinlikKodu write FyakinlikKodu;
    property yatisBitisTarihi: string               Index (IS_NLBL or IS_UNQL) read FyatisBitisTarihi write FyatisBitisTarihi;
    property bransKodu:        string               Index (IS_NLBL or IS_UNQL) read FbransKodu write FbransKodu;
    property devredilenKurum:  string               Index (IS_NLBL or IS_UNQL) read FdevredilenKurum write FdevredilenKurum;
    property donorTCKimlikNo:  string               Index (IS_NLBL or IS_UNQL) read FdonorTCKimlikNo write FdonorTCKimlikNo;
    property hastaTCKimlikNo:  string               Index (IS_NLBL or IS_UNQL) read FhastaTCKimlikNo write FhastaTCKimlikNo;
    property provizyonTarihi:  string               Index (IS_NLBL or IS_UNQL) read FprovizyonTarihi write FprovizyonTarihi;
    property provizyonTipi:    string               Index (IS_NLBL or IS_UNQL) read FprovizyonTipi write FprovizyonTipi;
    property saglikTesisKodu:  Integer              Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
    property sigortaliTuru:    string               Index (IS_NLBL or IS_UNQL) read FsigortaliTuru write FsigortaliTuru;
    property takipNo:          string               Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property takipTipi:        string               Index (IS_NLBL or IS_UNQL) read FtakipTipi write FtakipTipi;
    property tedaviTipi:       string               Index (IS_NLBL or IS_UNQL) read FtedaviTipi write FtedaviTipi;
    property tedaviTuru:       string               Index (IS_NLBL or IS_UNQL) read FtedaviTuru write FtedaviTuru;
    property yeniDoganBilgisi: YeniDoganBilgisiDVO  Index (IS_NLBL or IS_UNQL) read FyeniDoganBilgisi write FyeniDoganBilgisi;
  end;



  // ************************************************************************ //
  // XML       : BasvuruTakipOkuDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  BasvuruTakipOkuDVO = class(TRemotable)
  private
    FhastaBasvuruNo: string;
    FsaglikTesisKodu: Integer;
  published
    property hastaBasvuruNo:  string   Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property saglikTesisKodu: Integer  Index (IS_UNQL) read FsaglikTesisKodu write FsaglikTesisKodu;
  end;

  ArrayOfBasvuruTakipDVO = array of BasvuruTakipDVO;   { "http://dvo.gss.sgk.gov.tr"[GblCplx] }


  // ************************************************************************ //
  // XML       : BasvuruTakipOkuCevapDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  BasvuruTakipOkuCevapDVO = class(TRemotable)
  private
    FbasvuruTakip: ArrayOfBasvuruTakipDVO;
    FhastaBasvuruNo: string;
    FsonucKodu: string;
    FsonucMesaji: string;
  public
    destructor Destroy; override;
  published
    property basvuruTakip:   ArrayOfBasvuruTakipDVO  Index (IS_NLBL or IS_UNQL) read FbasvuruTakip write FbasvuruTakip;
    property hastaBasvuruNo: string                  Index (IS_NLBL or IS_UNQL) read FhastaBasvuruNo write FhastaBasvuruNo;
    property sonucKodu:      string                  Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji:    string                  Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
  end;



  // ************************************************************************ //
  // XML       : BasvuruTakipDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  BasvuruTakipDVO = class(TRemotable)
  private
    FtakipFaturaDurumu: string;
    FtakipNo: string;
  published
    property takipFaturaDurumu: string  Index (IS_NLBL or IS_UNQL) read FtakipFaturaDurumu write FtakipFaturaDurumu;
    property takipNo:           string  Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
  end;



  // ************************************************************************ //
  // XML       : SevkBildirGirisDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  SevkBildirGirisDVO = class(TRemotable)
  private
    FsevkEdilisTarihi: string;
    FtakipNo: string;
    FtesisKodu: Integer;
  published
    property sevkEdilisTarihi: string   Index (IS_NLBL or IS_UNQL) read FsevkEdilisTarihi write FsevkEdilisTarihi;
    property takipNo:          string   Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
    property tesisKodu:        Integer  Index (IS_UNQL) read FtesisKodu write FtesisKodu;
  end;



  // ************************************************************************ //
  // XML       : SevkBildirSonucDVO, global, <complexType>
  // Namespace : http://dvo.gss.sgk.gov.tr
  // ************************************************************************ //
  SevkBildirSonucDVO = class(TRemotable)
  private
    FsevkEdilisTarihi: string;
    FsonucKodu: string;
    FsonucMesaji: string;
    FtakipNo: string;
  published
    property sevkEdilisTarihi: string  Index (IS_NLBL or IS_UNQL) read FsevkEdilisTarihi write FsevkEdilisTarihi;
    property sonucKodu:        string  Index (IS_NLBL or IS_UNQL) read FsonucKodu write FsonucKodu;
    property sonucMesaji:      string  Index (IS_NLBL or IS_UNQL) read FsonucMesaji write FsonucMesaji;
    property takipNo:          string  Index (IS_NLBL or IS_UNQL) read FtakipNo write FtakipNo;
  end;


  // ************************************************************************ //
  // Namespace : http://servisler.ws.gss.sgk.gov.tr
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // binding   : HastaKabulIslemleriSoapBinding
  // service   : HastaKabulIslemleriService
  // port      : HastaKabulIslemleri
  // URL       : http://saglikt.sgk.gov.tr:80/medulaws/services/HastaKabulIslemleri
  // ************************************************************************ //
  HastaKabulIslemleri = interface(IInvokable)
  ['{B25A4D97-5480-760A-53B5-7703431E21CF}']
    function  hastaYatisOku(const hastaYatisOkuDVO: HastaYatisOkuDVO): HastaYatisOkuCevapDVO; stdcall;
    function  updateProvizyonTipi(const provizyonDegistirDVO: ProvizyonDegistirGirisDVO): ProvizyonDegistirCevapDVO; stdcall;
    function  hastaKabulIptal(const takipSilGiris: TakipSilGirisDVO): TakipSilCevapDVO; stdcall;
    function  hastaCikisIptal(const hastaCikisIptal: HastaCikisIptalDVO): HastaCikisCevapDVO; stdcall;
    function  updateTedaviTipi(const takipOkuDVO: TakipOkuGirisDVO): TakipDVO; stdcall;
    function  hastaKabulAileHekimiKDS(const provizyonGiris: ProvizyonGirisKdsDVO): ProvizyonCevapDVO; stdcall;
    function  hastaKabulKDS(const provizyonGiris: ProvizyonGirisKdsDVO): ProvizyonCevapDVO; stdcall;
    function  hastaCikisKayit(const hastaCikis: HastaCikisDVO): HastaCikisCevapDVO; stdcall;
    function  hastaKabul(const provizyonGiris: ProvizyonGirisDVO): ProvizyonCevapDVO; stdcall;
    function  basvuruTakipOku(const basvuruTakipOkuDVO: BasvuruTakipOkuDVO): BasvuruTakipOkuCevapDVO; stdcall;
    function  sevkBildir(const sevkBildirGiris: SevkBildirGirisDVO): SevkBildirSonucDVO; stdcall;
    function  hastaKabulOku(const takipOkuGiris: TakipOkuGirisDVO): TakipDVO; stdcall;
  end;

function GetHastaKabulIslemleri(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): HastaKabulIslemleri;


implementation
  uses SysUtils;

function GetHastaKabulIslemleri(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): HastaKabulIslemleri;
const
  defWSDL = 'http://saglikt.sgk.gov.tr/medulaws/services/HastaKabulIslemleri/wsdl/HastaKabulIslemleri.wsdl';
  defURL  = 'http://saglikt.sgk.gov.tr:80/medulaws/services/HastaKabulIslemleri';
  defSvc  = 'HastaKabulIslemleriService';
  defPrt  = 'HastaKabulIslemleri';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as HastaKabulIslemleri);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


destructor HastaYatisOkuCevapDVO.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FbasvuruYatisBilgileri)-1 do
    SysUtils.FreeAndNil(FbasvuruYatisBilgileri[I]);
  System.SetLength(FbasvuruYatisBilgileri, 0);
  inherited Destroy;
end;

destructor TakipDVO.Destroy;
begin
  SysUtils.FreeAndNil(FhastaBilgileri);
  inherited Destroy;
end;

destructor ProvizyonGirisKdsDVO.Destroy;
begin
  SysUtils.FreeAndNil(FyeniDoganBilgisi);
  inherited Destroy;
end;

destructor ProvizyonCevapDVO.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FsigortaliAdliGecmisi)-1 do
    SysUtils.FreeAndNil(FsigortaliAdliGecmisi[I]);
  System.SetLength(FsigortaliAdliGecmisi, 0);
  SysUtils.FreeAndNil(FhastaBilgileri);
  inherited Destroy;
end;

destructor ProvizyonGirisDVO.Destroy;
begin
  SysUtils.FreeAndNil(FyeniDoganBilgisi);
  inherited Destroy;
end;

destructor BasvuruTakipOkuCevapDVO.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FbasvuruTakip)-1 do
    SysUtils.FreeAndNil(FbasvuruTakip[I]);
  System.SetLength(FbasvuruTakip, 0);
  inherited Destroy;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(HastaKabulIslemleri), 'http://servisler.ws.gss.sgk.gov.tr', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(HastaKabulIslemleri), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(HastaKabulIslemleri), ioDocument);
  RemClassRegistry.RegisterXSClass(HastaYatisOkuDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaYatisOkuDVO');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBasvuruYatisBilgileriDVO), 'http://dvo.gss.sgk.gov.tr', 'ArrayOfBasvuruYatisBilgileriDVO');
  RemClassRegistry.RegisterXSClass(HastaYatisOkuCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaYatisOkuCevapDVO');
  RemClassRegistry.RegisterXSClass(BasvuruYatisBilgileriDVO, 'http://dvo.gss.sgk.gov.tr', 'BasvuruYatisBilgileriDVO');
  RemClassRegistry.RegisterXSClass(ProvizyonDegistirGirisDVO, 'http://dvo.gss.sgk.gov.tr', 'ProvizyonDegistirGirisDVO');
  RemClassRegistry.RegisterXSClass(ProvizyonDegistirCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'ProvizyonDegistirCevapDVO');
  RemClassRegistry.RegisterXSClass(TakipSilGirisDVO, 'http://dvo.gss.sgk.gov.tr', 'TakipSilGirisDVO');
  RemClassRegistry.RegisterXSClass(TakipSilCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'TakipSilCevapDVO');
  RemClassRegistry.RegisterXSClass(HastaCikisIptalDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaCikisIptalDVO');
  RemClassRegistry.RegisterXSClass(HastaCikisCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaCikisCevapDVO');
  RemClassRegistry.RegisterXSClass(TakipOkuGirisDVO, 'http://dvo.gss.sgk.gov.tr', 'TakipOkuGirisDVO');
  RemClassRegistry.RegisterXSClass(TakipDVO, 'http://dvo.gss.sgk.gov.tr', 'TakipDVO');
  RemClassRegistry.RegisterXSClass(HastaBilgileriDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaBilgileriDVO');
  RemClassRegistry.RegisterXSClass(ProvizyonGirisKdsDVO, 'http://dvo.gss.sgk.gov.tr', 'ProvizyonGirisKdsDVO');
  RemClassRegistry.RegisterXSClass(YeniDoganBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'YeniDoganBilgisiDVO');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfSigortaliAdliGecmisDVO), 'http://dvo.gss.sgk.gov.tr', 'ArrayOfSigortaliAdliGecmisDVO');
  RemClassRegistry.RegisterXSClass(ProvizyonCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'ProvizyonCevapDVO');
  RemClassRegistry.RegisterXSClass(SigortaliAdliGecmisDVO, 'http://dvo.gss.sgk.gov.tr', 'SigortaliAdliGecmisDVO');
  RemClassRegistry.RegisterXSClass(HastaCikisDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaCikisDVO');
  RemClassRegistry.RegisterXSClass(ProvizyonGirisDVO, 'http://dvo.gss.sgk.gov.tr', 'ProvizyonGirisDVO');
  RemClassRegistry.RegisterXSClass(BasvuruTakipOkuDVO, 'http://dvo.gss.sgk.gov.tr', 'BasvuruTakipOkuDVO');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBasvuruTakipDVO), 'http://dvo.gss.sgk.gov.tr', 'ArrayOfBasvuruTakipDVO');
  RemClassRegistry.RegisterXSClass(BasvuruTakipOkuCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'BasvuruTakipOkuCevapDVO');
  RemClassRegistry.RegisterXSClass(BasvuruTakipDVO, 'http://dvo.gss.sgk.gov.tr', 'BasvuruTakipDVO');
  RemClassRegistry.RegisterXSClass(SevkBildirGirisDVO, 'http://dvo.gss.sgk.gov.tr', 'SevkBildirGirisDVO');
  RemClassRegistry.RegisterXSClass(SevkBildirSonucDVO, 'http://dvo.gss.sgk.gov.tr', 'SevkBildirSonucDVO');
end.

[ALUCARD]

hocam bu dediğinizi import ediyorum
HastaKabulIslemleri1.pas olaral kaydediyorum

sorgulamama formumun uses bölümüne HastaKabulIslemleri1 ekliyorum.

ama rpovizyon al butonunun altına ne yazacağımı bulamadım.
formun üzerine hangi componentleri koyacağım yada koyacakmıyım vb gibi sorunlarım var

[tinekci]

function hastaKabul(const provizyonGiris: ProvizyonGirisDVO): ProvizyonCevapDVO; stdcall

o butonun altında bu fonksiyonu kullanıcaksın

var
bloğunda ProvizyonGirisDVO ve ProvizyonCevapDVO tipinde 2 adet class tanımla.
bunları önce create et.

sonra ProvizyonGirisDVO tipinde olan class ın içindeki bilgileri doldur.

örn:
var
pgiris: ProvizyonGirisDVO;
pgiriscevap: ProvizyonCevapDVO;
begin
pgiris:=ProvizyonGirisDVO.create;
pgiriscevap:=ProvizyonCevapDVO.create;

pgiris.tesisno:='634747'; //degerler atmasyondur...
pgiris.sifre:='64764';
....
// ve baska degerler istiyorsa onları tanımlıycan sonra fonksiyonu cagırıcan

pgiriscevap:=hastakabul(pgiris);

// pgiriscevap icerisindede meduladan sana gelen bilgiler bulunacak..
// Bu iş daha ayrıntılı nasıl anlatılır bilmiyorum bunda sonrası senın bılgıne ve arastırmana kalmıs.

end;

[ALUCARD]

teşekkürle deniyrorum hemen

[ALUCARD]

hocam herşeyi hallettim
birtek

Kod: Tümünü seç

pgiriscevap:=hastakabul(pgiris);

kısmını yapamadım

yani birtek fonksiyonu çalıştıramadım.

[ALUCARD]

viewtopic.php?f=2&t=20489

linkinde arkadaşlar çok güzel açıklamışlar.

sadece medulada biraz değişkilik olmuş

biraz düzenleme yapınca istediğim şeyi yapabildim.

[ALUCARD]

(null) konumundaki saglikt.sgk.gov.tr sunucusu için bir kullanıcı adı ve parola gereklidir

şeklnde bir hata alıyorum

şifreyi

Kod: Tümünü seç

HTTPRIO1.HTTPWebNode.UserName := '11111111' ;
            HTTPRIO1.HTTPWebNode.Password := '1111111' ;
servis:=GetHastaKabulIslemleri( True,'',HTTPRIO1);

şeklinde gönderiyorum

[tinekci]

Oraya Kafadan Username ve Password yazmıycan Meduladan aldıgın username ve password yazıcan

[aslangeri]

s.a.
verdiği hata mesajından yola çıkarak
bir ihtimal de delphiden gönderdiğin string parametreleri servis algılayamayabiliyor(nasıl bi kelime bu). Yani gönderdiğin parametreleri almıyor. Delphinin versiyonu eski ise ondan kaynaklanabilir. Sağlık bakanlığı hl7 standartlarını getirdiği sırada bu wsdl import ile ilgili bir yama çıkartılmıştı. onu yaparsanız belki hata değişir. kolay gelsin.