Thread: error box

hey there, im new to delphi, and im usin the "Client_Server example" source to learn and play with, when i run the client and click connect when there is no ip enterd i get a error and it crashes, what code can i add so when there is no ip enterd and you try and connect you will get a message box that will pop up tellin you to enter an ip address?
This is my current code for the "Connection Button"

procedure TForm1.Button1Click(Sender: TObject);
begin
if ClientSocket1.Active = False then
begin
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1533;
ClientSocket1.Active := True;
Button1.Caption := 'Disconnect';
StatusBar1.Panels[0].Text := 'Connected';
end
else
begin
ClientSocket1.Active := True;
ClientSocket1.Close;
Button1.Caption := 'Connect';
StatusBar1.Panels[0].Text := 'Disconnected';
end

Thank You

hi xsmithx

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ClientSocket1.Active = False then
begin
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1533;
if Edit1.Text = '' then //put wotever u want to happen here 
else ClientSocket1.Active := True;
Button1.Caption := 'Disconnect';
StatusBar1.Panels[0].Text := 'Connected';
end
else
begin
ClientSocket1.Active := True;
ClientSocket1.Close;
Button1.Caption := 'Connect';
StatusBar1.Panels[0].Text := 'Disconnected';
end

i hope thats right
Ciao

-drkdreams

will that be in a pop up box? like "Please Enter IP Address" then a OK button?

Thanks drk dreams

This is what you want right ?
if Edit1.Text = '' then
MessageBox(Handle,'Please, enter an IP address !!','xsmithx',MB_ICONINFORMATION+MB_OK);

Yeh thats the one Thanks Ratws,
when its in run mode, i leave the ip box empty, click connect, i get the "'Please, enter an IP address" message, but then i get
Project Project1.exe raised exception class EScocketError with message "No Address Specified"
how can i get this error message to stop popin up, or wont it pop up when i compile it?

Thank You

Click on the clientsocket, in the Object Inspector double click "OnError" and do this..
ErrorCode:= 0;

i get "ErrorCode:= 0;" is not a Valid identifier

Thank you for your help Ratws

You don't insert it in the Object Inspector, you just double click in that empty spot right after the "OnError", this will create an event handler and then you insert the codes!

yeh i tryed that mate i get this look

Yeah but, this is what you should not do.You are inserting the codes in the wrong place.Fisrt of all clear that, double click it (it will be empty) and then you insert the codes in the code editor, not in the Object Inspector.