@ thomasdrewermann:
danke für den tip, habe es ausprobiert, leider kommt immer noch der selbe fehler, entweder wird die
exception automatisch abgefangen (ich habe keine exceptions eingebaut) und eine message erscheint, oder der debugger meldet sich mit dieser fehlermeldung.
leider hatte ich es auch schon früher mal unter delphi 6 hingekriegt, und und delphi 7 auch, nur jetzt auf einmal wills nicht mehr...
@ Chewie:
ich erhalte diese fehlermeldung nur wenn ich den string an eine existierende
IP sende (client muss an sein), ansonsten passiert keine reaktion. wenn ich auf meinem client den client laufen lasse erhalte ich ebenfalls diese fehlermeldung. als
OS für den client teste ich mit
w2k-prof, entwickle und teste den server auf win xp prof. hier mal den code vom client:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 =
class(TForm)
Label1: TLabel;
Client: TClientSocket;
Server: TServerSocket;
procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
strCommand:
string;
begin
strCommand:=Socket.ReceiveText;
if(strCommand='
Command1')
then
begin
Label1.Caption := '
Signal erhalten';
end;
strCommand := '
';
end;
end.