内存补丁

2006-04-23 02:56:02 222 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Simulink实战：火电机组一次调频与AGC协同控制建模与仿真解析本文详细解析了如何使用Simulink进行火电机组一次调频与AGC协调控制的建模与仿真。通过系统架构设计、参数设置和模块实现，阐述了如何实现两者的协同控制，确保电网频率稳定。文章提供了实用的建模技巧、参数整定经验和性能评估方法，为电力系统仿真工程师提供了有价值的实践指导。阅读详情

以下是VC代码。我转换成DELPHI 出了错误，请大家分析下。VC代码运行正确。DELPHI编译是正确的，但运行出错。
struct delphi_string
{
DWORD len;
char text[256];
};

void AddChatString(LPCTSTR string, COLORREF b=0xffffff, COLORREF f=0)
{
DWORD p=0x00479AE0;
delphi_string d;
ZeroMemory(&d,sizeof(d));
d.len=strlen(string);
strcpy(d.text,string);
DWORD t=(DWORD)d.text;
__asm
{
push eax
push edx
push ecx

push f
mov ecx, b
mov edx, [t]
mov eax, 004F7D8Ch
mov eax, [eax]
call p

pop ecx
pop edx
pop eax
}
}
////////////DELPHI
Tdelphi_string = packed record
len : DWORD;
text : string[255];
end;
procedure AddChatString(sstring:PAnsiChar; b:DWORD;f:DWORD);
const
p=$00479AE0;
var
d:Tdelphi_string;
t:DWORD;
begin
ZeroMemory(@d,sizeof(d));
d.len:=strlen(sstring);
d.text:=sstring;
t:=dword(@d.text);
asm

push eax
push edx
push ecx

push f
mov ecx, b
mov edx, t
mov eax, [$004F7D8C]
mov eax, [eax]
call [p]

pop ecx
pop edx
pop eax
end;
end;

...全文