2022-11-16 99 0

procedure TForm1.FormCreate(Sender: TObject);begin//delphi中使用Application.BringToFront;可以保证当前程序显示在最前Application.BringToFront;end;

2022-11-16 92 0

Delphi 自带的 THttpClient 是一个很好的 Http/Https 协议的跨平台实现，不过，现在的版本功能有些地方封装的还是不太合理，造成使用中存在一些不便。比如，我们从一个网址通过 HTTP 302 等跳转到另一个网址时，无法对跳转的过程进行精细控制，也无法获取到跳转后的目标地址。本文给大家提供一种方法来处理这个跳转的问题，直接看代码：uses System.Net.HttpClient,System.Net.UrlClient;procedure TForm1.Button1Click

2022-11-16 97 0

下面这个函数没有进行效率优化，如果优化下会很快，会提高很多倍，不过满足一般的使用是够了。如果大家有兴趣，可以自己优化下，优化的主要方式是预先计算好需要的内存空间，然后直接填充，而不是象下面的算法一样，由于频率的拼接字符串，造成内存的不断分配释放。 function HexView(ABytes: TBytes): String;var C, R, L, ARows, ACols: Integer; T: String; B: Byte;begin L := Length(ABytes); AR

2022-11-16 50 0

Delphi / C++ Builder 发布程序到 Android 时，如果我们要发布一个自己的文件，则需要设置的目录是：asserts\internal （内置存贮）或 asserts （外置存贮），然后运行时使用下面的方法获取路径：Delphi:TPath.Combine(TPath.GetDocumentsPath, 'filename') { Internal }TPath.Combine(TPath.GetSharedDocumentsPath, 'filename

2022-11-16 46 0

研究delphi服务的路径，试了好几个方法 ，都没取出来，最后发现，要采用取DLL路径的方法//一、获取Dll自身路径//1)方法一：Function GetDllPath（sDllName:string):string;varModuleFileName:array[0..255] of char;begin//{取得dll的实际位置}GetModuleFileName(GetModuleHandle(sDllName), @ModuleFileName[0], SizeOf(ModuleFileNa

2022-11-16 50 0

Reading Android package name:uses Androidapi.Helpers;function PackageName: string;begin Result := JStringToString(SharedActivityContext.getPackageName);end;Reading iOS bundle name:uses Macapi.CoreFoundation, iOSApi.Foundation;function PackageName: str

2022-11-16 78 0

选择一张照片，让照片缩略图显示在图片控件中间。procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);begin doDump(image,image1.Bitmap);end;procedure TForm1.doDump(tmpBmp:TBitmap; imgBmp:TBitmap);var w,h:integer;begin if tmpbmp.Width>tmpbmp.Height the

2022-11-16 103 0

TBitmapCodecManager.SaveToStream的最后一个参数为 PBitmapCodecSaveParams，但是在使用时，如果定义parms:PBitmapCodecSaveParams;设置parms.Quality := 10; 则Android程序闪退，所以改用该指针的指向，parms:TBitmapCodecSaveParams，运行正常。procedure TForm5.BitmapToJPEG(input_bp: TBitmap; output_fn: string);v