微服务调用（http）

微服务调用（http）

微服务可以是http的RESTful API也可以是二进制流服务等。

restful api调用演示

?

1 2 3 4 5 6 7 8 9 10 11

procedure TForm2.Button2Click(Sender: TObject); //rest 查询 begin   var req: TIdMultiPartFormDataStream := TIdMultiPartFormDataStream.Create;   req.AddFormField('cmd', IntToStr(cmd_query));   req.AddFormField('accountno', '1');   req.AddFormField('sql', 'select top 2 * from tunit');   Memo1.Text := IdHTTP1.Post(FUrl2, req);  //'http://localhost:1580/rest?service=dal';   req.Free;   ClientDataSet1.FromJson(Memo1.Text); end;

　二进制流调用演示

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure TForm2.Button1Click(Sender: TObject); //msgpack 查询 begin   var pack: TMsgPack := TMsgPack.Create;   pack.Force('cmd').AsInteger := cmd_query;                //命令字   pack.Force('accountno').AsString := '1';                 //数据库帐套号   pack.Force('tablenum').AsInteger := 2;                   //查几个表   pack.Force('sql1').AsString := 'select * from tgoods';   pack.Force('sql2').AsString := 'select * from tunit';   var req: TBytesStream := TBytesStream.Create;   var res: TBytesStream := TBytesStream.Create;   pack.EncodeToStream(req);   req.Position := 0;   IdHTTP1.Post(FUrl, req, res); //'http://localhost:1580/msgpack?service=dal'   pack.Clear;   res.Position := 0;   pack.DecodeFromStream(res);   if pack.Force('return').AsBoolean then   begin     ClientDataSet1.Data := pack.Force('dataset1').AsVariant;     ClientDataSet2.Data := pack.Force('dataset2').AsVariant;   end   else     ShowMessage(pack.Force('err').AsString);   pack.Free;   req.Free;   res.Free; end;

?

1	<strong>二进制流调用url</strong><br>http://localhost:1580/msgpack?service=dal <br><strong>rest json调用url</strong>

?

1	http://localhost:1580/rest?service=dal<br>service=dal，表示调用dal微服务