Delphi

Delphi

Delphi idhttp访问DATASNAP有密码验证的中间件

25 0

idhttp访问DATASNAP有密码验证的中间件用TIDHttp访问DataSnap Rest服务器,在服务器采用了用户验证的情况下,客户端需要提交密码,否则不能正常连接。procedure TForm15.Button2Click(Sender: TObject);var url, params, Text: string; code: Integer; http: TIDHttp;begin http:= TIDHttp.Create(nil); http.Request.BasicAu

Delphi

Delphi fdconnection自动重连

67 0

fdconnection自动重连1)设置 FDConnection1.ResourceOptions.AutoReconnect := True;控制自动连接的恢复。 使用AutoReconnect属性控制自动连接恢复功能。 若要在连接断开时透明地重新建立连接,请将此属性设置为true。如果为false,firedac将引发异常,并且不会尝试重新连接。 应用程序可以使用tfdcustomconnection事件控制连接恢复。有关详细信息,请参阅onrecover。不可

Delphi

SQLITE报错database is locked的解决办法

608 0

SQLITE报错database is locked的解决办法用firedac连接SQLITE数据库,空间tdbedit绑定字段name,如下语句修改其值时报错。procedure TForm1.Button3Click(Sender: TObject);begin fdquery.Edit; fdquery.FieldByName('name').AsString:='test2'; fdquery.post; //执行到这里报错 [FireDAC][Phys][S

Delphi

Delphi提示‘error loading MIDAS.DLL’的原因及解决方案

68 0

TClientDataSet小家碧玉,恐怕人人都喜欢使用。但是,都知道娶TClientDataSet是有代价的,因为你同时也得面对丈母娘MIDAS.DLL。 错误原因: 就是没有在根目录下加上MIDAS.DLL 文件或者在主程序中引用MidasLib单元 解决办法: 1、 在根目录下加上MIDAS.DLL 文件 2、在主程序中引用MidasLib单元 注意: MidasLib单元在Delphi6以及DELPHI的更高版本中才有,是

Delphi

Delphi 关闭自己,重新运行

66 0

uses shellapi;procedure KillProcess(hWindowHandle: HWND);var hprocessID: INTEGER; processHandle: THandle; DWResult: DWORD;begin SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0, SMTO_ABORTIFHUNG or SMTO_NORMAL, 500, DWResult); if isWindow(hWindow

Delphi

Delphi 移动客户端的路径的安全正确的写法

32 0

关于移动客户端的路径的安全正确的写法。IncludeTrailingPathDelimiter(System.IOUtils.TPath.GetDocumentsPath) + '你的文件.扩展名';才是正规写法。注意大小写。IncludeTrailingPathDelimiter为字符串尾部添加/,如果已经有了,就不添加。

Delphi FMX调用JAR里的JAVA类Init方法
Delphi

Delphi FMX调用JAR里的JAVA类Init方法

78 0

本文背景:Delphi XE10.3 RIO由于FMX的JNIBridge将init作为默认的JAVA对象构造函数名,JAR中如果有方法名为init的类方法,FMX都会映射为构成函数,造成调用失败。这一问题需要官方修改Androidapi.JNIBridge单元的MethodIDFor方法逻辑,这里给出一个临时的Fix方法。unit TU2Helper.Android; interface uses System.TypInfo; procedure TU2FixJavaClassInit(const

Delphi

Delphi Image1 图像旋转90

35 0

procedure Rotate90(Source: TGraphic; Target: TJpegImage);varSourceBmp, TargetBmp: TBitmap;r, c: Integer;x, y: Integer;beginSourceBmp := TBitmap.Create;SourceBmp.Assign(Source);TargetBmp := TBitmap.Create;TargetBmp.Width := SourceBmp.Height;TargetBmp.Heig