procedure TForm1.getChapHearingsForCase();
var vUrl : String;
vWS_Params : ChapService.getChapHearingsForCase;
vWS_Responce : ChapService.getChapHearingsForCaseResponse;
strTmp :String;
begin
vWS_Params := ChapService.getChapHearingsForCase.Create;
vWS_Params.userName := 'clarks'; //'login name';
vWS_Params.password := 'password'; //'password';
vWS_Params.sessionId := '';
vWS_Params.courtType := 'bk'; //'BK';
vWS_Params.court := 'utb'; //'utb';
vWS_Params.database := 'train'; //'live';
vWS_Params.caseId := 4037;
vUrl := 'http://156.129.120.201:8080/cmecf_ws2/services/ChapService?
wsdl';
vWS_Responce := ChapService.GetChapServicePortType(
false, vUrl).getChapHearingsForCase(vWS_Params);
With mtblFindHearings, vWS_Responce do begin
Insert;
FieldByName('caseid').AsInteger := Return.caseId;
FieldByName('cs_case_number').AsString := Return.caseNumber;
FieldByName('chapter').AsString := Return.chapter;
FieldByName('cs_def_num').AsInteger := Return.defNum;
FieldByName('judge_code').AsString := Return.judgeCode;
FieldByName('cs_judge_inits').AsString := Return.judgeInits;
FieldByName('matter').AsString := Return.matter;
FieldByName('name').AsString := Return.name_;
FieldByName('pr_prid').AsInteger := Return.prid;
FieldByName('sched_id').AsInteger := Return.schedId;
FieldByName('cs_sort_case_numb').AsString :=
Return.sortCaseNumber;
FieldByName('sort_order').AsString := Return.sortOrder;
FieldByName('type').AsString := Return.type_;
Post;
end;
FreeAndNil(vWS_Params);
end;