Cheat Engine :: View topic - [Delphi - Help needed] Habbo Retro

Cheat Engine
The Official Site of Cheat Engine

FAQ

Memberlist

Usergroups

Profile

[Delphi - Help needed] Habbo Retro

Cheat Engine Forum Index -> General programming

View previous topic :: View next topic

Author

Message

NothingToShow
Grandmaster Cheater Supreme

Reputation: 0

Joined: 11 Jul 2007
Posts: 1579

Posted: Fri Aug 08, 2008 2:02 pm Post subject: [Delphi - Help needed] Habbo Retro

Hey everybody.
I recently wanted to start emulating, so I thought that Habbo Retro would be a nice place to start. I'm not very far, and I'm already stuck.

I found a site, which tells you how to make a packet sender/viewer for Habbo, which should help you out starting.
But whenever my Delphi project receives a packet from Habbo, it gets an error.

Source:

Code:

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); //error is here
socket.SendData('@@'); //and here
end;

Components used:
1x Winsock (socket)
1x TEdit (sData)

Error:

Quote:

Invalid operation at current state

Any idea what's wrong?

Display posts from previous:

	Cheat Engine Forum Index -> General programming	All times are GMT - 6 Hours
Page 1 of 1

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum