Yeni medula ve Delphi XE4

[ALUCARD]

Arkadaşlar Merhaba;

Daha önce forumdan bir arkadaşın yardımı ile delphi 7 ile sadece provizyon alan ve silen bir uygulama yapmıştım.

Ancak şimdi Yeni medula sisteminde provizyon işlemlerinin değiştiğini öğrendim. yeni sistemde kullanılan

https://medula.sgk.gov.tr/medula/hastan ... eriWS?wsdl

adresi import ediyorum ancak kullanamıyorum. sadece provizyon alıp silme işlemini yapan arkadaş var ise bana kodları yazabilirse sevinirim. delphi 7 yada xe4 olabilir.

[ALUCARD]

hala bir neticeye ulaşamadım

[ebaytar]

bununla ilgili örnekleri , yaşanan sıkıntıları https://groups.google.com/forum/#!forum/saglik_net adresindeki sağlık yazılımcılarının bilgi paylaşım grubunda bulabilirsiniz. Muhtemelen wsse işlemlerinde sorun yaşıyorsunuzdur.

[ALUCARD]

arkadaşlar yardım edebilecek kimse yokmu
hala bir örnek bulamadım.

[ALUCARD]

delphi ile wse kullanılarak yapılıyormuş. acaba nasıl kullanıldığını bilen varmı

[ALUCARD]

Eğer daha önce provizyon aldıysanız yapmanız gereken tek değişiklik servisler ws- security desteği geldi. Dizinde delphiye wse programını yükleyip, kullanıcı adını ve parolayı öyle göndermeniz gerekiyor.

bir gruptan böyle bir cevap geldi. ama tam olarak anlamadım. yorum yapabilecek olan varsa sevinirim.

[ALUCARD]

Kod: Tümünü seç

procedure TSorF.HTTPRIO1BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  stmp,bdy: TStringList;
  st:string;
  StStream:TStringStream;
begin
  SOAPRequest.Position:=0;
  stmp:= TStringList.Create;
  bdy:= TStringList.Create;

  bdy.LoadFromStream(SOAPRequest, TEncoding.UTF8);
  st:=bdy.Text;
  delete(st,1,pos('<SOAP-ENV:Body>',bdy.Text)-1);
  stmp.Clear;
  stmp.Assign(MedulaWssHead);
//  stmp.Add(st);
  StStream:=TStringStream.Create(STMP.Text + st,TEncoding.UTF8);
  StStream.Position:=0;
  SOAPRequest.Position:=0;
  StStream.SaveToStream(SOAPRequest);

//  StStream.SaveToFile('d:\giden.xml');
  FreeAndNil(stmp);
  FreeAndNil(bdy);
  FreeAndNil(StStream);

end;

function TSorF.MedulaWssHead: TStringList;
begin
  Result:= TStringList.Create;

  Result.Add('<?xml version="1.0" encoding="UTF-8"?>');
  Result.Add('<SOAP-ENV:Envelope');
  Result.Add('xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"');
  Result.Add('xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"');
  Result.Add('xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing"');
  Result.Add('xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"');
  Result.Add('xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"');
  Result.Add('xmlns:ser="http://servisler.ws.gss.sgk.gov.tr">');
  Result.Add('   <SOAP-ENV:Header>');
  Result.Add('      <wsse:Security>');
  Result.Add('         <wsse:UsernameToken wsu:Id="SecurityToken-04ce24bd-9c7c-4ca9-9764-92c53b0662c5">');
  Result.Add('            <wsse:Username>'+ADOSabitlerKullaniciAdi.AsString+'</wsse:Username>');
  Result.Add('            <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">'+ADOSabitlerSifre.AsString+'</wsse:Password>');
  Result.Add('         </wsse:UsernameToken>');
  Result.Add('      </wsse:Security>');
  Result.Add('   </SOAP-ENV:Header>');
end;

kodunu eklediğimizde düzeldi. yardım eden arkadaşlara çok teşekkür ederim.