刚从Delphi转C#那会遇到的问题，C#与Delphi的一不同处，几个快捷键。包括如何调用存储过程。
2023-12-17 20:43:39
1KB
1
Delphi开发
KTV专业视频转码
支持硬件压缩H264,H265
支持多音轨
转码速度快，已用此源码转换过十六万首的KTV歌库，音画质量非常好，转换来的文件体积小
用到的组件:FFmpeg,
支持输出格式：MKV,MPEG,AVI,MOV,MP4,M4A,M4V
其中的单元DosCommand.pas非本人写的，故不含在内，请自行找
2023-12-15 12:29:26
664KB
1
Delphi反编译的神器，不输DEDE。
已经构建完成，下载解压即用。
IDR (Interactive Delphi Reconstructor) 源码需要 Borland C++ Builder V6.0构建，可参考https://github.com/crypto2011/IDR
2023-12-15 12:16:25
181.14MB
1
superobject for d6,d7 现在不管Webapi还是一般的数据通讯，用的基本都是Json，以前很多的应用程序都是用delphi7开发的，为了维护旧的程序以及与新的接口进行对接（如微信支付宝支付等），我们就用到了superobject来操作Json数据。
由于我们用的是D7，里面没有泛型等这些用法，所以也不存在什么类的序列化与反序列化直接生成Json。操作起来可能比较C#，Android等要麻烦点。
2023-12-14 22:12:59
210KB
1
Silverlight使用WebService调用C++,Delphi编写的DLL文件实例源码,
2023-12-13 11:01:22
109KB
1
DELPHI动态创建删除FRAME
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,FM;
type
TForm2 = class(TForm)
Panel1: TPanel;
Button2: TButton;
ScrollBox1: TScrollBox;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TFM = Array Of TFrame1;
var
Form2: TForm2;
aFM: TFM;
procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall;
implementation
{$R *.dfm}
procedure DeleteArrItem(var arr: TFM ; Index: Integer);
var
Count: Cardinal;
i:integer;
begin
Count := Length(arr);
if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0]));
SetLength(arr, Count - 1);
for I := 0 to Length(arr) - 1 do
begin
arr[i].Label1.Caption:=inttostr(i);
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
fram:TFrame1;
begin
SetLength(aFM,length(aFM)+1);
aFM[length(aFM)-1] :=TFrame1.Create(nil) ;
fram:=aFM[length(aFM)-1];
fram.Label1.Caption:=inttostr(length(aFM)-1);
fram.Parent:=ScrollBox1;
end;
end.
unit fm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrame1 = class(TFrame)
GroupBox1: TGroupBox;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses unit2;
{$R *.dfm}
procedure TFrame1.Button1Click(Sender: TObject);
begin
DeleteArrItem(aFM,strtoint(label1.Caption));
( Sender as Tbutton ).Parent.Parent.Destroy;
end;
end.
2023-12-12 19:35:07
311KB
1