Q&A

  • 닷넷소스의 델파이 변환
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문서만 간다네요...ㅠㅠ
0  COMMENTS