Kod: Tümünü seç
Fln_kantar := ZSD_S_KANTAR.Create;
with Fln_kantar do
begin
XsDec := TXSDecimal.Create;
FISNO := edFisNo.Text;
XsDec.DecimalString := Format('%d', [StrToInt(edAgirlik.Text)]);
TARTIM := XsDec;
OPERATOR := edOperator.Text;
KANTAR := edKantarNo.Text;
FISRF := edKantarId.Text;
MEINS := 'KG';
end;
FHurda := (RIO as HurdaSoap);
FHurda.Kantar_Oku(Fln_kantar, Ftb_yrddet, edRouterStr.Text, edAppHost.Text,
StrToInt(edClient.Text), 'TR', edPassword.Text, StrToInt(edSysNum.text),
edUser.Text, FKantar_OkuResult, Ftb_return);
XsDec.Free;
Kod: Tümünü seç
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<SOAP-ENV:Body>
<Kantar_Oku xmlns="http://tempuri.org/">
<ln_kantar>
<TARTIM>15750</TARTIM>
<FISNO>10000000015</FISNO>
<MEINS>KG</MEINS>
<KANTAR>LİMAN</KANTAR>
<OPERATOR>VELİ</OPERATOR>
<FISRF>123123123</FISRF>
</ln_kantar>
<router>/H//H/</router><App_host>192.168.0.242</App_host><client>150</client><langu>TR</langu><password>***********</password><systemnum>0</systemnum><user>vadiguzel</user></Kantar_Oku></SOAP-ENV:Body></SOAP-ENV:Envelope>
