SKICO_0602.SKICO_0602
oUrl = new WindowsApplication1.SKICO_0602.SKICO_0602();
SKICO_0602.SubmitDocument_0602SKICO_0602_Req
req = new WindowsApplication1.SKICO_0602.SubmitDocument_0602SKICO_0602_Req();
req.IM_CARWGHT = new WindowsApplication1.SKICO_0602.SubmitDocument_0602SKICO_0602_ReqIM_CARWGHT();
req.IM_CARWGHT.JWGDT = "a";
req.IM_CARWGHT.JWGHT = "b"; // ......
SKICO_0602.SubmitDocument_0602ResponseSKICO_0602_Resp
resp = oUrl.SubmitDocument_0602(req);
Console.WriteLine(resp.EX_SUBRC);
요것을
procedure TForm1.Button2Click(Sender: TObject);
var
Svs : SKICO_0602Soap;
InCar : IM_CARWGHT;
Req : SKICO_0602_Req;
sReq : SKICO_0602_Req;
Resp : SKICO_0602_Resp;
abc : string;
bbb,ccc : TStream;
begin
//응답1
svs := (HTTPRIO1 as SKICO_0602Soap);
Req := SKICO_0602.SKICO_0602_Req.Create;
InCar:= SKICO_0602.IM_CARWGHT.Create;
InCar.SHNUMBER := '"'+'1000000499'+'"';
InCar.MNGST := ''''+'1'+'''' ;
incar.STSFD := ''''+'1'+'''' ;
incar.VEHICLE := ''''+'1000473'+'''' ;
incar.VWGHT := ''''+'5600'+'''' ;
incar.VWGDT := ''''+'20061031'+'''' ;
incar.VWGTM := ''''+'114449'+'''' ;
incar.MWGHT := ''''+'23000'+'''' ;
incar.MWGDT := ''''+'20061031'+'''' ;
incar.MWGTM := ''''+'114608'+'''' ;
incar.JWGHT := ''''+'17400'+'''' ;
incar.JWGDT := ''''+'20061031'+'''' ;
incar.JWGTM := ''''+'114608'+'''' ;
Req.IM_CARWGHT := InCar;
//
Resp := svs.SubmitDocument_0602(Req).Create;
//Resp:=SKICO_0602.GetSKICO_0602Soap(true,'',HTTPRIO1).SubmitDocument_0602(Req).Create;
//Resp := svs.SubmitDocument_0602(Req).Create;
memo1.Text:=Resp.EX_SUBRC;//-->'S'라고 와야함
memo2.Text:=Resp.BTSSTATUS;//-->'SUCCESS'라고 와야함
// req.Free;
resp.Free;
incar.Free;
svs := nil;
end;
요렇게 했는데... 빈껍데기 xml문서만 간다네요...ㅠㅠ