Problem mit ClientSocket

[fcg]

Hallo

und zwar habe ich ein Problem. Wenn ich folgende Code direkt indie Projektdatei ,also ohne Form etc schreibe, dann meckert er immer, das keine Verbindung zum Server besteht. Wenn ich das ganze in einer Form mit nem Button versehen funktionierts!?!

Mien Code

Delphi-Quellcode:

program client;

uses
 Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  ScktComp,
  ExtCtrls,
  Jpeg;


{$R *.RES}

var
 ClientSocket: TClientSocket;
 FStream: TFileStream;

procedure ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   FStream := TFileStream.Create(ExtractFilePath(Application.Exename)+'screen.jpg', fmOpenRead);
   Socket.SendStream(FStream);
end;


// HAUPTPROGRAMMM

begin

  ClientSocket := TClientSocket.Create(nil);
  ClientSocket.Port := 305;
  ClientSocket.Host := '192.168.0.1';
  @ClientSocket.OnConnect := @ClientSocket1Connect;
  ClientSocket.Active := True;
  
  while 1=1 do
   begin
    Application.ProcessMessages;
   end;
end.

thÄnxX
fcg

[SirThornberry]

Ich denke der Fehler liegt darin das du

Delphi-Quellcode:

Application.ProcessMessages;

aufrufst ohne vorher

Delphi-Quellcode:

Application.Initialize;

aufzurufen

[Muetze1]

Moin!

Ein Problem habe ich dir zu dem Code schon im anderen Forum geschrieben: Du umgehst die Typenprüfung Delphi direkt und somit ignorierst du einfach ein Problem: Der versteckte Self Parameter...

Delphi-Quellcode:

@ClientSocket.OnConnect := @ClientSocket1Connect;

MfG
Muetze1

[XHelp]

Versuche mal das hier

Delphi-Quellcode:

program Project1;

uses
  Windows,
  ScktComp,
  ExtCtrls,
  Sockets,
  Messages,
  SysUtils;

type TPrg = class
  procedure CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
  procedure CS1Read(Sender: TObject; Socket: TCustomWinSocket);
end;

var
  WhEvent:THandle;
  CS1:TClientSocket;
  prg: TPrg;
  m:tagMSG;


procedure TPrg.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  c,t:string;
begin
  c:=Socket.ReceiveText;
  MessageBox(0,PChar(t),PChar(c),MB_OK);
end;

procedure TPrg.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  CS1.Socket.SendText('Servus');
end;


begin

  prg:=TPrg.Create;
  CS1:=TClientSocket.Create(nil);
  CS1.Port:=4567;
  CS1.Address:='127.0.0.1';
  CS1.OnConnect:=prg.CS1Connect;
  CS1.OnRead:=prg.CS1Read;
  CS1.Active:=true;


  while getMessage(m,0,0,0) do begin
    if m.message=WM_CLOSE then Break;
    DispatchMessage(m);
  end;

end.

Bei mir klappt das.