我在程序利用了一个vb的inet控件,我想问,他如何被打包的exe文件里,即
将exe文件考走,在别的机子上就能用(没装delphi的机子)
将exe文件考走,在别的机子上就能用(没装delphi的机子)
解决方案 »
- 为什么线程使用数组会变成一个空数组?
- 一个字符串倒序问题?
- 如何在一张图片上,用户可以以不规则的闭合的线条将地图划分成若干的块,其中闭合的区域范围内是个热区,用户点击这个热区系统会弹出提示
- 有关fastreport动态取得数据源的问题,急,高分求救!!!
- 求助 isapi 中使用 ShellExecute的问题!!
- 动态增加的菜单的onClick事件我设置后怎么一起动程序就执行了啊?subitem
- 菜问题,寻求帮助
- Delphi的Form或Frame问题
- 利用SQL语句进行数据表导出到EXCEL文件
- 高手请进,如何将数据表琐住,只让一个用户修改,请各位高手不吝赐教
- 如何将当前日期变成指定的格式?
- 关于delphi中的公文包客户及服务器程序的使用
strURL:='http://202.157.184.171/newdm/login_auth.cfm';
strFormData :='login='+Edit1.Text+'&password='+Edit2.Text+'&Submit=%B5n%A4J'; Inet1.Execute(strURL,'Post',strFormData,'Referer: http://202.157.184.171/newdm/index.cfm '+#13#10+'Accept-Language: zh-cn'+#13#10+ 'Content-Type: application/x-www-form-urlencoded'+#13#10+'Accept -Encoding: gzip , deflate'+#13#10);
用idhttp控件代替
解决另开分
procedure TForm1.Button1Click(Sender: TObject);
var
oXmlHttp:olevariant;
xmlDoc:olevariant;
begin
xmlDoc := '内容';
oXmlHttp := CreateOleObject('Microsoft.XMLHTTP');
try
try
oXmlHttp.Open('POST','http://localhost:8899/sys/aspregister.jsp',false);
oXmlHttp.setRequestHeader('Content-Type','text/xml');
oXmlHttp.setRequestHeader('charset','utf-8');
oXmlHttp.Send(xmlDoc);
if oXmlHttp.status = 200 then
begin
if Copy(oXmlHttp.responseText,1,1)='0' then
Application.MessageBox('成功了!','OK',MB_OK)
else
Application.MessageBox('数据传送到JSP页面失败!','OK',MB_OK);
end
else
Application.MessageBox(PChar('失败了,网页存在等错误!'+IntToStr(oXmlHttp.status)),'False',MB_OK);
except
on E: Exception do Application.MessageBox(PChar(E.Message),'异常',MB_OK);
end;
finally
oXmlHttp := null;
end;
end;
如果做了 ,把delphi 的一些bpl 安装上就应该可以了,