merhabalar
procedure TdmHastane.HTTPRIOC00OdemeSorgulamaBeforeExecute(
const MethodName: string; var SOAPRequest: WideString);
begin
SOAPRequest:=SGKMesajFix(SOAPRequest);
// FormAnaMenu.MemoXML.Text := SOAPRequest;
end;
sonra
unction SGKMesajFix(Mesaj :WideString):WideString;
var
header: ansistring;
begin
header:=
'<SOAP-ENV:Header>'+
'<wsse:Security
xmlns:wsse="
http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"
xmlns:wsu="
http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">'+
'<wsse:UsernameToken wsu:Id="SecurityToken-04ce24bd-9c7c-4ca9-9764-92c53b0662c5">'+
'<wsse:Username>'+GSSKullaniciKodu+'</wsse:Username>'+
'<wsse:Password
Type="
http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">'+GSSKullaniciSifre+'</wsse:Password>'+
'</wsse:UsernameToken>'+
'</wsse:Security>'+
'</SOAP-ENV:Header>'+
'<SOAP-ENV:Body>';
Mesaj:=StringReplace(Mesaj,' xmlns=""','',[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'<SOAP-ENV:Body>',header,[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'<hizmetOku
xmlns="
http://servisler.ws.gss.sgk.gov.tr">','<ser:hizmetOku
xmlns:ser="
http://servisler.ws.gss.sgk.gov.tr">',[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'<hizmetKayit
xmlns="
http://servisler.ws.gss.sgk.gov.tr">','<ser:hizmetKayit
xmlns:ser="
http://servisler.ws.gss.sgk.gov.tr">',[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'<hizmetIptal
xmlns="
http://servisler.ws.gss.sgk.gov.tr">','<ser:hizmetIptal
xmlns:ser="
http://servisler.ws.gss.sgk.gov.tr">',[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'</hizmetOku>','</ser:hizmetOku>',[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'</hizmetKayit>','</ser:hizmetKayit>',[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'</hizmetIptal>','</ser:hizmetIptal>',[rfReplaceAll]);
Mesaj:=StringReplace(Mesaj,'xsd:','',[rfReplaceAll]);
Result:=Mesaj;
end;
ile sorununu çözebilirsin iyi çalışmalar
17 Temmuz 2013 Çarşamba 15:04:30 UTC+3 tarihinde Hatice Tuna yazdı: