Delphi
无名大白
这个作者很懒,什么都没留下…
展开
-
Delphi 获取当前程序路径
在Delphi SysUtils 单元中 edit1.Text:=ParamStr(0);//自己全路径c:/555/qq.exe,可用于控制台 edit1.text:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c:/qq/2.exe edit2.text:=ExtractFileDir(ParamStr(0)); //获取本程序的路径 c:/qq...转载 2019-03-20 10:16:44 · 2550 阅读 · 0 评论 -
delphi idhttpserver ajax 跨域
解决方案 TIdHTTPServer的onCommandGet方法有三个参数,分别是上下文,请求体,响应体。 我们只需要在响应体中加上Access-Control-Allow-Origin、Access-Control-Allow-Headers、Access-Control-Allow-Method三个配置即可 procedure TMain.idHttpServerCommandGet(AC...转载 2019-03-20 16:20:59 · 907 阅读 · 0 评论