[Delphi] Help needed regarding Habbo Retro

[Rellom]

Hey.
I recently tried to make a Habbo Retro, no success, but I got a little of the way.
I found a site, which tells you how to make a packet sender/viewer for habbo, so you would be able to make a retro.
But whenever Habbo sends a packet to my Delphi App, the delphi app gets an error.

Here's the source:

procedure TForm1.FormCreate(Sender: TObject);
begin
socket.LocalPort := 60;
socket.Listen;
end;

procedure TForm1.socketDataArrival(ASender: TObject;
bytesTotal: Integer);
var
tmp: OleVariant;
begin
socket.GetData(tmp);
sData.Text := tmp;
end;

procedure TForm1.socketClose(Sender: TObject);
begin
socket.Close;
socket.Listen;
end;

procedure TForm1.socketConnectionRequest(ASender: TObject;
requestID: Integer);
begin
socket.Accept(requestID);
socket.SendData('@@');
end;

The error I get is:
Invalid operation at current state

Any ideas how to make it work?

 

[MasterBubba]

Hey.
I recently tried to make a Habbo Retro, no success, but I got a little of the way.
I found a site, which tells you how to make a packet sender/viewer for habbo, so you would be able to make a retro.
But whenever Habbo sends a packet to my Delphi App, the delphi app gets an error.

Here's the source:


The error I get is:
Invalid operation at current state

Any ideas how to make it work?

Take a look at USA111's source.
I believe he has similiar coding to yours.

 

[Rellom]

Take a look at USA111's source.
I believe he has similiar coding to yours.

That is actually his, but I still get an error.