请问这几句delphi怎么改成bcb
const
WM_REFRESH_USERS = WM_USER + 330;
type
TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);
PCmdRec = ^TCmdRec;
TCmdRec = record
Cmd: string;
end;
const WM_REFRESH_USERS = WM_USER + 330;
enum TRefreshParam {rpRefreshAll, rpAppendItem, rpDeleteItem};
struct TCmdRec
{ String Cmd;
};
typedef TCmdRec * PCmdRec;
修改一下:
C/C++ code:
struct TCmdRec
{
AnsiString Cmd;
};
谢谢，想把一个delphi的indytcpserver demo改成bcb的，搞了很久还是没有搞定（http://read.pudn.com/downloads97/sourcecode/hack/trojan/396877/Server/Unit1.pas__.htm），那位大哥能帮帮忙看看
1：
__fastcall TUser::SetContext(const TIdContext * Value)
{
//if FContext <> nil then FContext.Data := nil;
//if Value <> nil then Value.Data := Self;
//FContext := Value;
if(FContext!=NULL) FContext->Data=NULL;
//if(Value!=NULL) Value->Data=this;//这句话该怎么改？？
FContext=(TIdContext *)Value;
}
2：
void __
相关问答：
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
假设开发时连接了SQL数据库。
那么在给客户用的时候，如果客户机子上没有装SQL的话，那程序不是不能正常运行了吗？
有没有办法在客户机上不按照SQL的情况下也能正常运行程序。
这个没试过、应该会有解决的� ......
老产品维护问题，
Delphi 版本：delphi6
如果新建一个Application,
用一下Code可以获得正确的Handle
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......
