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