Hi,
auch wenn ich den eigenen(deinen) Gedankengang damit Zerstöre, könnte
die Lösung so aus sehen:
Delphi-Quellcode:
unit uScktComp;
interface
uses
Windows, Classes, ScktComp;
type
TMyClientSoket =
class(TClientSocket)
private
FConnect : Boolean;
procedure SetConnect(Value : Boolean);
public
constructor Create(aOwner : TComponent);
override;
property Connect : Boolean
read FConnect
write SetConnect;
end;
implementation
constructor TMyClientSoket.Create(aOwner : TComponent);
begin
inherited Create(aOwner);
FConnect := false;
end;
procedure TMyClientSoket.SetConnect(Value : Boolean);
var
ErrInt : Integer;
begin
if ((Host = '
')
or (Port = -1))
and Assigned(OnError)
then
begin
ErrInt := 12345;
Error(Socket, eeGeneral, ErrInt);
Active := true;
end
else
Active := true;
end;
Da ich aber nichts mit Client/Server.Socket programmiere =
ungetestet!!!
Das einfügen einer neuen Eigenschat
Connect ist einfacher als 'alles'
neu zu schreiben und auch sicherer!
Letzeres greift nur, wenn es garnicht anders geht( da man für alles selber Verantwortlich ist!!!).
Viele Grüße