Delphi 7: Client / Server
Hej AlleSom rimlig ny på delphi har jeg kastet mig over et lille project hvor jeg vil lave et lille program som kan styre min server.
dvs. jeg via remote kan restarte serveren, slette temp/cached filer, slukke serveren, køre et script på mit billed arkiv derinde.
Jeg har via nogle eksempler fundet en mini demo af client / server som jeg har prøvet at skrive om til mit eget.
istedet for at kalde de procedure jeg har jeg lavet til Restart osv. har jeg bare label en label som skifter caption når den får en command fra client programmet.
Af en eller anden årsag skifter den kun når den får command 1 fra klienten, sender jeg et '2' sker der ikke mere osv..
hvad har jeg gjort forkert?
koden ser således ud:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;
type
TForm1 = class(TForm)
TcpServer1: TTcpServer;
Label1: TLabel;
Label2: TLabel;
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
if ClientSocket.Receiveln = '1' then
label2.caption := 'nummer 1' else
if ClientSocket.Receiveln = '2' then
label2.caption := 'nummer 2' else
if ClientSocket.Receiveln = '3' then
label2.caption := 'nummer 3' else
end;
end.