bcb代码转delphi

2001-11-03 02:49:08 138 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Redis 集群核心机制全解析：数据分片、主从复制、故障转移、Smart Client一次搞懂 Redis Cluster 通过哈希槽分片、主从复制、自动故障转移、Smart Client构建了一套完整的分布式高可用架构。理解其底层原理与限制，是正确规划缓存架构的关键。阅读详情

bcb 写的dll 中有个函数
xtern "C" __declspec(dllexport) int __stdcall GetTTSData(String TextStr,
String IPStr, String FileName,PBYTE &PCMBuffer, int Speed)
{
TTSData objTtsData;
TMemoryStream* MyStream;
int dwFileSize, nRet;

//检查PCMBuffer是否NULL
if(PCMBuffer != NULL) {
delete PCMBuffer;
PCMBuffer = NULL;
}
...
MyStream = new TMemoryStream;
MyStream->Write((void*)((int)objTtsData.pOutBuf) , objTtsData.dwOutBufSize);

dwFileSize = MyStream->Seek(0, soFromEnd);
PCMBuffer = new byte[dwFileSize];
MyStream->Seek(0, soFromBeginning);
MyStream->Read(PCMBuffer, dwFileSize);
delete MyStream;
}
}
在delphi 中调用
function GetTTSData(TextStr, IPStr, FileName:String; PCMBuffer: Pointer; Speed: integer): integer; stdcall; external 'dmtts.dll' name 'GetTTSData';

GetTTSData(TextStr, IPStr, FileName, @PCMBuffer,Speed);

我想转成delphi 的
主要我弄不清如何表示PBYTE PBYTE &PCMBuffer
且 PCMBuffer 的内存如何分配 getmem( PCMBuffer ,size)好像不行

...全文

LSM6DS3TR-C IMU传感器入门：从MEMS原理到姿态解算实战惯性测量单元（IMU）是现代智能设备实现运动感知的核心部件，其基础原理基于微机电系统（MEMS）技术。MEMS加速度计通过检测质量块在惯性力作用下的位移来测量线性加速度，而陀螺仪则利用科里奥利力效应感知角速度。这种技术使得微型化、低成本的6自由度运动测量成为可能，为机器人、无人机、可穿戴设备等提供了关键的空间姿态和运动状态信息。在实际工程中，开发者需要掌握I2C/SPI通信协议、传感器数据读取与校准，并通过互补滤波等算法融合加速度计和陀螺仪数据，实现稳定的姿态解算。LSM6DS3TR-C作为一款高性价比的6 阅读详情

newyj

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

newyj 2001-11-03

打赏
举报

如何实现在dll 中分配内存和释放
///////////dll
library PrjDll;
uses
windows, SysUtils, Classes;
{$R *.RES}
function file2char(var P:Pchar):integer; stdcall;export;
var
fm:Tfilestream;
begin
//MessageBox(0, PChar(IntToHex(Longint(p), 8)), '', MB_OK);
fm:=Tfilestream.Create('1.txt',fmopenread);
result := fm.size+1;
getMem(p,fm.size+1);
//MessageBox(0, PChar(IntToHex(Longint(p), 8)), '', MB_OK);
fm.read(p,fm.size);
fm.Free;
end;
procedure delmem(p:pchar);
begin
freemem(p);
end;
exports
file2char,
delmem;
begin
end.
//测试程序

function file2char(var P:Pchar):integer; stdcall;external 'PrjDll.DLL';
procedure delmem(p:pchar); stdcall;external 'PrjDll.DLL';
var
Form1: TForm1;

implementation
var
p:pchar;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var

isize:integer;
begin
//getmem(p,8); //如果分配的内存比实际需要的大没问题，小了就不行；
//我想知道dll中如何去改变内存大小；好像ReallocMem不行
//p[0]:=#0;
// MessageBox(0, PChar(IntToHex(Longint(p), 8)), '', MB_OK);

isize:=file2char(p);
// MessageBox(0, PChar(IntToHex(Longint(p), 8)), '', MB_OK);

if isize>0 then
begin
richedit1.Clear;
richedit1.Lines.add(p);
end
else richedit1.Lines.add('dfadfdas');
// freemem(p,isize);
delmem(p);
p:=nil;

end;

end.

newyj 2001-11-03

打赏
举报

我现在要用delphi 写一个dll ;就是在dll分配内存出错；
getdata(buf:pchar);
beign
getmem(buf，size);
end;
delmem(buf:pchar);
begin
freemem(buf);
end;

主程序中
var
p；pchar;

getdata(p);
delmem(p);
好像无法成功

weizhi 2001-11-03

打赏
举报

Delphi 中定义PCMBufferkss可用:
Var
PCMBuffer : PBYTE;
分配和释放可用.
GetMem(PCMBuffer,Size);
FreeMem(PCMBuffer);

在BCB的
extern "C" __declspec(dllexport) int __stdcall GetTTSData(String TextStr,
String IPStr, String FileName,PBYTE &PCMBuffer, int Speed)

中定义的PCMBuffer参数就是一个普通的绶冲区指针,没什么特别的地方.
所以你在Delphi中只要定义一个PBYTE变量(它就是一个指针变量),然后为它分配内存即可.

bcb代码转delphi

相关推荐