RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧

Delphi 和微软的 Azure 云存储

Delphi针对云存储的支持,支持了亚马逊的AWS和微软的Azure,不过经过测试,发现对Azure的支持是有问题的。然后俺深入研究了一下如何用Delphi的代码去访问Azure的Blob--Azure的云存储叫做Blob。物料准备:Delphi10.3社…
类别:技巧 标签: 作者:admin 日期:2019-04-15 13.55.57

delphi'控件的相对坐标与屏幕坐标转换

DELPHI控件的相对坐标与屏幕坐标转换一、直接上代码varpt:TPoint;r:TRect;beginpt:=Point(Edit1.Top,Edit1.Left);pt:=ClientToScreen(pt);Edit2.Text:=inttostr(pt.X);Edit3.Text:=inttostr(pt.y);Mouse.CursorPos:=…
类别:技巧 标签: 作者:admin 日期:2019-04-13 09.30.19

DELPHI XE 编译开关-一套代码不同平台编译

DELPHIXE编译开关-一套代码不同平台编译随便找个地方用就行,省的每个平台都要一个工程了{$IFDEFANDROID}这里是安卓{$ELSE}{$IFDEFIOS}这里是苹果{$ELSE}这里是除了安卓和苹果{$ENDIF}{$ENDI
类别:技巧 标签: 作者:admin 日期:2019-04-13 09.29.23

在RAD Studio Delphi或C++安卓应用中使用自定义Java库

在RADStudioDelphi或C++安卓应用中使用自定义Java库RADStudio允许使用自己或者第三方java库。为在RADStudio安卓应用中使用自定义库:1、确保你的java库满足java库的RADStudio要求。2、创建一个原生的桥接文件(nativ…
类别:技巧 标签: 作者:admin 日期:2019-04-08 14.14.30

用Delphi实现百度地图经纬度与地址互转

用Delphi实现百度地图经纬度与地址互转通过百度地图GeocodingAPIWeb服务API,实现输入经纬度坐标,转换查看更多关于转换的文章为经纬度所在地址,效果如图:API参见1、百度地图地理编码服务GeocodingAPI2、百度地图国…
类别:技巧 标签: 作者:admin 日期:2019-04-08 14.12.06

Delphi百度云服务平台获取token

functionGetaccess_token(grant_type,client_id,client_secret:string):string;//获取tokenvaridhttp2:Tidhttp;authHost:string;tokSl:Tstringlist;beginauthHost:='http://aip.baidubce.com/oauth/2.0/token';tryto…
类别:技巧 标签: 作者:admin 日期:2019-04-08 13.42.38

Delphi调用百度语音识别服务

functionGetaccess_token(grant_type,client_id,client_secret:string):string;//获取tokenvaridhttp2:Tidhttp;authHost:string;tokSl:Tstringlist;beginauthHost:='http://aip.baidubce.com/oauth/2.0/token';tryto…
类别:技巧 标签: 作者:admin 日期:2019-04-08 13.23.19

delphi 读取剪粘板内的html格式数据

调用单元:usesClipbrd;procedureTForm1.Button4Click(Sender:TObject);vars:string;hMem:DWORD;CF_HTML:DWORD;//声明一个CF_HTML剪贴板格式txtPtr:Pansichar;beginCF_HTML:=RegisterClipboardFormat('HTMLFormat');…
类别:技巧 标签: 作者:admin 日期:2018-03-21 16.07.15

Delphi xe FileSizeByName 要引用哪些文件

DelphixeFileSizeByName要引用哪些文件IdGlobalProtocols
类别:技巧 标签: 作者:admin 日期:2018-03-09 23.20.02

delphi 利用 showmessage(SysErrorMessage(GetLastError));得到不反馈的错误信息

delphi利用showmessage(SysErrorMessage(GetLastError));得到不反馈的错误信息上面的解释有点牵强可以这么理解吧showmessage(SysErrorMessage(GetLastError));
类别:技巧 标签: 作者:admin 日期:2018-01-16 14.27.51

delphi ListBoxAddItems() 不重复添加Edit1

{不重复添加Edit1.text到列表框中}//调用ListBoxAddItems(Edit1,ListBox1);procedureListBoxAddItems(Edit:TEdit;ListBox:TListBox);beginifListBox.Items.IndexOf(Edit.Text)<0thenbeginListBox.Items.Add(Edit.Tex…
类别:技巧 标签: 作者:admin 日期:2018-01-15 20.00.20

delphi Link() 精简打开网址

usesShellAPI;{打开网址}//调用Link('www.baidu.com');procedureLink(URL:string);beginShellExecute(Application.Handle,nil,PChar(URL),0,0,SW_SHOWNORMAL);end;
类别:技巧 标签: 作者:admin 日期:2018-01-15 19.58.10

delphi 让label 始终在Form的正中显示

1、设置label的align为alClient;2、设置label的alignment为taCenter<b...
类别:技巧 标签: 作者:admin 日期:2018-01-09 08.06.04

Delphi XE10实现移动端支付宝、微信支付接口

DelphiXE10实现移动端支付宝支付接口(含源码)http://www.orangeui.cn/wordpress/?p=15DelphiXE10实现移动端微信支付接口(含源码)http://www.orangeui.cn/wordpress/?p=12
类别:技巧 标签: 作者:admin 日期:2018-01-08 21.19.14

delphi执行js

命名空间:ComObj[delphi]viewplaincopyunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;typeTForm1=class(TForm)&nbs...
类别:技巧 标签: 作者:admin 日期:2018-01-07 14.55.03

delphi GetMem(myString,1024);//开辟1024个字节FreeMem(myString,1024);//释放

procedureTForm1.Button4Click(Sender:TObject);varmyString:PChar;Begin//SetLength(S1,100);//GetWindowText(Handle,PChar(S1),Length(S1));//Button1.Caption:=S1;GetMem(myString,1024);//开辟1024个字节GetWind…
类别:技巧 标签: 作者:admin 日期:2018-01-02 15.50.21

delphi spy++ 拖拽功能

{$R*.dfm}...
类别:技巧 标签: 作者:admin 日期:2018-01-02 15.23.31

delphi 随机生成汉字

varaa:string;bb:array[1..95]ofbyte;cc:array[1..95]ofbyte;i,j:integer;begini:=$A0;forj:=1to95dobeginbb[j]:=i;cc[j]:=i;inc(i);<di...
类别:技巧 标签: 作者:admin 日期:2018-01-02 14.34.05

delphi文件无法拖拽功能失效

delphi文件拖拽功能失效,原来是UAC系统权限把它过滤了碰到这样一个问题,文件拖拽功能在没有以管理员身份运行的时候是正常的,但是一旦使用管理员身份运行,这个功能就失效了,搜索了好久总算找到原因了。在windowv…
类别:技巧 标签: 作者:admin 日期:2018-01-02 11.31.29

delphi 通过控件句柄获取控件实例

创建一Delphi工程,放置一个TEdit和TButton,在Edit1中随便输入一些文字。{---------------通过控件句柄获取控件实例-----------------------------------------------------------原理详见Classes.pas单元,13045行…
类别:技巧 标签: 作者:admin 日期:2017-03-15 20.00.31