LAN-Anbindung

[Jens Hartmann]

So,ich habe das ganze jetzt nochmal in Delphi neu geschrieben, und es funktioniert. Irgendwie stimmt was nicht mit dem Projekt. Seltsamerweise, würde an keiner Stelle ein Breakpoint genommen. Noch nichtmal bei einem ShowMessage im Btn.Click.

Zusätzlich habe ich jedem Ereignis der TClientSocket eine Eintrag ins TMemo verpasst und bekomme nach dem Programmstart die folgenden 4 Einträge...

Code:

OnLookup
OnConnecting
OnConnect
OnWrite

in genau dieser Reihenfolge.

Hier mal der aktuelle Code.

Delphi-Quellcode:

var
  _Buffer : array [0..16] of Byte = (
    $00, $00, $00, $0D,
    $C1, $92, $BD, $73,
    $2A, $BE, $2E, $47,
    $24, $F3, $03, $01,
    $00);

function Write(ptrData: Pointer; cbData: integer): Boolean;
var
  ret, cbRcv, cb, cbRead: integer;
  sockaddr: TSockAddr;
  WSData: TWSAData;
  szBuf: array of char;
  ClientSocket: TSocket;
begin
  result := false;
  if (ptrData = nil) or (cbData <= 0) then EXIT;
  ClientSocket := 0;
  try
    ret := WSAStartup($0020, WSData);
    if (ret <> S_OK) then EXIT;

    ClientSocket := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
    if (ClientSocket = INVALID_SOCKET) then EXIT;

    FillChar(sockaddr, SizeOf(TSockAddr), #0);

    with sockaddr do begin
      sin_Family := AF_INET;
      sin_Port   := htons(8016);
      sin_Addr   := TInAddr(Inet_Addr(PChar('192.168.178.75')));
    end;

    ret := Connect(ClientSocket, sockaddr, SizeOf(sockaddr));
    if (Ret = Socket_Error) then EXIT;

    ret := Send(ClientSocket, ptrData^, cbData, 0);
    if (ret = SOCKET_ERROR) then EXIT;

    setlength(szBuf, 32768 * 2);

    cb := 0;
    szBuf[0] := #0;

    while true do begin
      ret := ioctlsocket(ClientSocket, FIONREAD, cbRead);
      if (ret = SOCKET_ERROR) then EXIT;
      if cbRead = 0 then break;

      cbRcv := Recv(ClientSocket, szBuf[cb], 32768, 0);
      if cbRcv = 0 then EXIT;

      if (cbRcv = WSAECONNRESET) or (cbRcv = SOCKET_ERROR) then EXIT;

      cb := cb + cbRcv;
      if cb + 32768 > Length(szBuf) then SetLength(szBuf, Length(szBuf) * 2);
    end;

    result := true;
  finally
    if ClientSocket > 0 then begin
      ShutDown(ClientSocket, SD_BOTH);
      Closesocket(ClientSocket);
    end;
    WSACleanup;
  end;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('OnConnect');
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('OnConnecting');
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('OnDisConnect');
end;

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  Memo1.Lines.Add('OnError');
end;

procedure TForm1.ClientSocket1Lookup(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('OnLookup');
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('OnRead');
end;

procedure TForm1.ClientSocket1Write(Sender: TObject; Socket: TCustomWinSocket);
begin
  ClientSocket1.Socket.SendBuf(_Buffer, Length(_Buffer));
  Memo1.Lines.Add('OnWrite');
end;

procedure TForm1.btnLogonClick(Sender: TObject);
begin
  ClientSocket1.Socket.SendBuf(_Buffer, Length(_Buffer));
end;

Ich denke das, das so ganz gut aussieht. Allerdings weis ich nicht, ob meine Hardware mich als USER akzeptiert.

[EDIT]Astat, ich habe gerade gelesen, das Du mit Lazarus arbeitest. Kann es sein, das ich dadurch den Client nicht sauber geöffnet bekommen habe.

Gruß Jens