CodeTyphon - 如何像Delphi一样,有一个一体的界面?
CodeTyphon和Lazarus一样,默认都是Delphi5最初那种分离的界面,可能已经习惯了现在Delphi的一体界面,所以想把它弄成一体的!!
一,Lazarus一体化:
1,需要的插件
实现整合窗口的功能,只需要用到 Lazarus 自带的 anchordockingdsgn.lpk 插件,这个插件位于:
${Lazarus_install_dir}/components/a ...
delphi实现post请求
delphi实现post请求,前提头部先引用IDHttp组件
var
fhttpRequest: TIdHTTP;
PostData : TStringStream;
tmpStr : String;
begin
fhttpRequest := TIdHTTP.Create(nil);
fhttpRequest.HandleRedirects := True;//允许头转向
fhttpRequest.ReadTimeout := 5000;//请求超时设置
fhttpRequest.Req ...
DeWeb --- Hello,World!
1.新建一个DLL,命名为hello.dpr
2.新增一个Form.(File->New->VCL Form - Delphi),建议不要更改单元名称和Form名称,即分别为unit1.pas和Form1
3.在Form1中添加一个Label,设置其Caption为"Hello,DeWeb"
4.将hello.dpr源文件代码更改为
//====================================
library hello;
uses
ShareMem, SysUtils, F ...
Delphi 10.2.3 精简版自动激活Embarcadero Delphi 10.2.3 v25.0.29899.2631 Lite v14.4
下载:https://maxwoods.ctfile.com/u/758954/28516301
Embarcadero.Delphi.10.2.RTM.v25.0.26309.314.Lite.v14.0
——————————————————————————–
基本信息:
作者:lsuper联系方式:…
——————————————————————————–
版本说明:
由于 XE5 时代 Delphi 安装体积急剧膨 ...
delphi基于泛型结构的数据序列
delphi基于泛型结构的数据序列
unit server.rest.api;
/// <author>cxg 2022-7-13</author>
interface
uses
IdHTTP, System.Classes, Grijjy.ProtocolBuffers, System.NetEncoding,
System.JSON.Serializers, System.SysUtils;
type
TRest = class
public
/// <summary>
/// 查询
/// </summary>
...
ListView在delphi中的常用用法
ListView在delphi中的常用用法
//增加
i := ListView1.Items.Count;
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:=IntToStr(i);
ListItem.SubItems.Add('第'+IntToStr(i)+' 行');
ListItem.SubItems.Add('第三列内容');
end;
//按标题删除
for i:=ListView1.Items.Cou ...
mormot118ORM
mormot118ORM
unit mORMot;
/// root class for defining and mapping database records
// - inherits a class from TSQLRecord, and add published properties to describe
// the table columns (see TPropInfo for SQL and Delphi type mapping/conversion)
// - this published properties can be auto-fille ...
delphi TButton TBitBtn TSpeedButton 汇总
以下是他们的继承关系TControl-->TwinControl-->TbuttonControl-->Tbutton-->TBitBtn TControl-->TGraphicContron-->TSpeedButton
TButton是普通标准按钮。他的功能你自己设定。TBitBtn是可以在按钮上显示位图或者图标的按钮。他有自己的默认功能,你可以选,当然也可以自己写,就像设定TButton。TSpeedButton是菜单 ...
关于 Delphi 7 中文MD5的问题
使用Indy自带的md5算法,代码如下:
uses IdHash, IdHashMessageDigest;
function GetStringMD5(const AInPut: string): string;
var
MD5: TIdHashMessageDigest5;
{$IF CompilerVersion<20.0}
Digest: T4x4LongWordRecord;
{$IFEND}
begin
MD5 := TIdHashMessageDigest5.Create;
try
{$IF CompilerVersion>20.0} ...
Delphi 图片转换(jpg、bitmap、png、gif)
Delphi 图片转换(jpg、bitmap、png、gif)
1、jpg
var
jpg: TJPEGImage; // 要uses Jpeg单元
begin
// 显示jpg大图片的方式
jpg := TJPEGImage.Create;
jpg.LoadFromFile(getcurrentdir() + '\pic.jpg');
Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的
jpg.Free;
end;
2、bitmap
...
Delphi ActionList详解
一个友好的用户界面,必须具有下拉菜单,弹出菜单,工具条和快捷键。同样一个功能,程序员可能要提供几种操作方式,如文本拷贝,菜单命令&Copy,快捷键Ctrl+C,工具条上的拷贝按钮,都是程序员提供给用户的操作,可以大大方便了不同层次的用户。但是,多增加一种操作方式,就意味着增加响应事件的代码,还有,实现统一功能的多 ...
bosn.pas
bosn.pas
unit bson;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
interface
uses
SysUtils,
Classes,
Contnrs;
{
BSON element format
<type:byte> <c-str> <data>
<data> below
}
const
BSON_EOF = $00;
BSON_FLOAT = $01; //double 8-byte float
BSON_STRING = $02; //UTF-8 string
BSON_DOC = $03; / ...
delphi内存映射(跨平台)
delphi内存映射(跨平台)
/// <author>cxg 2020-12-9</author>
unit yn.map;
interface
uses
SysUtils,
{$IFDEF posix}
Posix.SysMman
{$ENDIF}
{$IFDEF mswindows}
Windows
{$ENDIF}
;
type
PShareMem = ^TShareMem;
TShareMem = record
size: Cardinal;
data: Pointer;
end;
type
...
delphi操作blobfield
delphi操作blobfield
procedure TForm2.Button1Click(Sender: TObject);
begin
var Stream:TMemoryStream := TMemoryStream.Create;
img1.Picture.Graphic.SaveToStream(Stream);
dataset.Close;
dataset.SQL.Clear;
dataset.SQL.Text := 'insert into t1 (picture) values (:picture)';
dataset.ParamByName( ...
【最新】Delphi XE7 绿色版下载,亲测可用!
最后更新时间 2017-12-05.
本文整理自2ccc盒子iny的帖子 → 链接到原贴
破解 → 链接
一、绿色版介绍
绿色版除了不包含 FastReport(RAD Studio自带的FastReport为精简版),其它均为完整版,没有做任何的精简,也没有做任何的改动!
绿色版包括了绿化程序1.0版(RADStudioXE7Green.exe),如有更新,仅仅只需要更新RADSt ...
delphi字符串操作集
delphi字符串操作集
1.copy
字符串的复制操作,有3个参数:
copy(源数据,复制起始位置(含),复制长度)
2.LeftStr ,RightStr (所在单元:StrUtils)
功能说明:返回字符串左(右)边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串,第二个参数为指定个数。
LeftStr(源数据,长度),RightStr (源数据 ...
delphi通过方法名调用方法
delphi通过方法名调用方法
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
type
TFunc = procedure(Param: string) of object; //定义方法原型
TForm1 = cl ...
Delphi - cxGrid内容xlsx、xls、csv格式导出
.xls格式导出,uses中添加cxGridExportLink
代码如下:
1 function SaveToExcel(gridMain: TcxGrid; FileName: string): string;
2 var
3 SaveFileDialog: TSaveDialog;
4 begin
5 //示例:SaveToExcel(dxDBGrid1,'默认文件名');
6 SaveFileDialog := TSaveDialog.Create(nil);
7 SaveFileDialog.F ...
Python可视化开发工具,类似VB、Delphi
收集类似VB、Delphi的 Python可视化开发工具,如下:
1、(国产)pythonstudio : 下载地址 https://www.glsite.com/?Studio/37.html ,最新教学视频教程更新在b站:https://space.bilibili.com/690222995/channel/series
基于 delphi VCL 的python 包 进行扩展而来。参考官方:Python GUI & ...
clientdataset(fdmemtable).delta(data)序列为JSON
clientdataset(fdmemtable).delta(data)序列为JSON
clientdataset和fdmemtable,都是DELPHI官方提供的内存表控件,许多的3层客户端都使用它们作数据集,因为3层客户端需要内存表数据集。
clientdataset的时代,REST API尚不流行。因此clientdataset只支持序列为二进制和XML,不支持序列为JSON。
firedac fdmemtable出来的时 ...