TTCPClientEx = class(TIdTCPClient)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent;IP:String;nPort:Integer); overload;
destructor Destroy;override;
....
destructor TTCPClientEx.Destroy ;
begin
inherited Destroy;
end;
constructor TTCPClientEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//这里的代码不能执行???
Host := IP;
Port := nPort;
end;
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent;IP:String;nPort:Integer); overload;
destructor Destroy;override;
....
destructor TTCPClientEx.Destroy ;
begin
inherited Destroy;
end;
constructor TTCPClientEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//这里的代码不能执行???
Host := IP;
Port := nPort;
end;
解决方案 »
- 急!!! 打印机关机情况下Printer.Canvas.TextOut();出错.
- 做完管理系统项目后的问题
- Delphi盒子临时留言板
- 安装问题
- 高手请进!
- 请问为什么Timage的Transparent属性在有机器可以透明有的却不行?
- 我以后就不能在这发言了,把分给大家(六)
- 怎么读其它窗口内的edit,memo,label等控件的值?
- 用Delphi5做ActiveForm的话,会有两个Bug.记得下载升级包哦 || 在哪里可以下载升级包??
- 在程序里调节音量大小的滑块使用的甚麽控件???
- 如何自动填写webbroswer中的页面里面的文本控件???
- 编写定制的文件流 怎么样实现文件读写加密 !!!!
还有个问题,为什么TIdTCPClient的Create方法不能override呢?
例如FReadStream:=TMemoryStream.Create;
..
这些代码应该如何操作啊。