delphi 中用http的post base64的图片和字符串两个参数问题，请帮忙解答下

2018-07-21 10:43:19 712 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

its2000 墨衍会员 · AI 创作全网分发关注 + 加入社区

给我一个delphi提交http post的例子这是一个 Delphi 代码示例，用于发送 HTTP POST 请求： procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL; Params: TStringList; begin I... 阅读详情

新手，高分求问：
报文示例如下｛"image_content":"图片的base64内容","id":"12345678",｝
接口方法http(post)方式，请求body是json
请问怎么用delphi实现，给个代码吧，谢谢

...全文

layui 监听单元格点击事件，获取当前点击单元格的内容以及所在的表头内容特别是后台的一些管理系统中业务中还是会碰见这样的需求呢如果你的后台使用layui写的话在表格中 layui 也给我们提供了监听单元格的事件但是好像不能直接获取到单元格内容个和对应的表头其实还是可以解决换个角度使劲就会发现新的世界不是吗 event: 'username' 在每个表头中加一个 event 属性这样就可以监听表头事件记住个 event 和当前列的字段最好保持一样 table.render({ e... 阅读详情

its2000

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

浮生-若梦 2018-07-24

打赏
举报

procedure PostImage;

var

jsonObj: TJsonObject;

IdHttp: TIdHTTP;

postData: UTF8String;

resp: string;

reqStm: TStringStream;

begin

reqStm := TStringStream.Create('');

try

	jsonObj := TJsonObject.Create;

	try

		jsonObj.AddPair('image_content','图片的base64内容');

		jsonObj.AddPair('id','12345678');

		postData := UTF8Encode(jsonObj.ToString);

		reqStm.WriteBuffer(BytesOf(postData), Length(postData));

	finally

		FreeAndNil(jsonObj);

	end;

	

	IdHttp ：= TIdHTTP.Create;

	try

		try

			IdHttp.AllowCookies := True;

			IdHttp.ConnectTimeout := 30000;

			IdHttp.Request.ContentType := 'application/json;charset=UTF-8';

			IdHttp.Request.Accept := '*/*';

			resp := IdHttp.Post('你的URL', reqStm);

			if IdHttp.ResponseCode = 200 then

			begin

				//你的处理

			end;

		except ON E:Exception do

			

		end;

	finally

		FreeAndNil(IdHttp);

	end;

finally

	FreeAndNil(reqStm);

end;

end;

大肚肥肥 2018-07-23

打赏
举报

function TWebAPI_JSON.Pic_Update(ABase64Img: String; var APic: TPic; var AErrStr: String; ARsultErrMsg: Boolean = False): Boolean;

function CreateIdHttp: TCustomIndyHttp;
begin
Result := TCustomIndyHttp.Create(nil);
Result.AllowCookies := true;
Result.HandleRedirects := true; // 允许头转向
Result.ReadTimeout := 5000; // 请求超时设置
Result.ConnectTimeout := 15000;

Result.Request.ContentType := 'application/json'; // 设置内容类型为jso
Result.Request.Accept := 'application/json';
end;

const
// URL = '/picasso-wan/governance-api/v1/file_upload.json';
URL = 'http://..........';
JSONStr = '{ "fileStr": "string"}';
var
AJSon, AResult: ISuperObject;
SendJSONStream: TStringStream;
AResultStr: string;
AIdhttp: TCustomIndyHttp;
AItem: TSuperArray;
begin
AIdhttp := CreateIdHttp;
AIdhttp.ConnectTimeout := 15000;
AIdhttp.ReadTimeout := 15000;
AJSon := SO(JSONStr);
Result := False;
AJSon.S['id'] :='12345678';
AJSon.S['image_content'] := '图片的base64内容';
SendJSONStream := TStringStream.Create(UTF8Encode(AJSon.AsString));
try
try
AResultStr := AIdhttp.Post(FHostURL + URL, SendJSONStream);

AResult := SO(AResultStr);
if AResult.b['success'] then
begin
if Assigned(AResult['collection']) then
begin
AItem := AResult['collection'].AsArray;
if AItem.Length > 0 then
begin
APic.fileUrl := AItem[0]['fileUrl'].AsString;
APic.fileUrl := StringReplace(APic.fileUrl, '.jpg.jpg', '.jpg', [rfReplaceAll, rfIgnoreCase]);

end;
Result := True;
end;
AErrStr := '无数据返回';
end;
except
on e: EIdHTTPProtocolException do
begin
AResultStr := e.ErrorMessage;
AResult := SO(AResultStr);
if Assigned(AResult['message']) then
begin
AErrStr := AResult['message'].AsString;
end
else
begin
if not ARsultErrMsg then
AErrStr := GetErrStr(e)
else
AErrStr := e.Message;
end;
end;
on e: Exception do
begin
if not ARsultErrMsg then
AErrStr := GetErrStr(e)
else
AErrStr := e.Message;
end;
end;
finally
AIdhttp.Free;
SendJSONStream.Free;
end;
end;

delphi 中用http的post base64的图片和字符串两个参数问题，请帮忙解答下

相关推荐