Trade Say - what's wrong

[muttley]

Hello,

I have edited say function to say function but I don't know what's wrong in that.

select delphi

procedure tradesay(text:string);
var
PacketBuffer: array [0..200] of byte;
ProcessID: Cardinal;
 
begin
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), @ProcessID);
 
PacketBuffer[0] := Byte(Length(text) + 4);
PacketBuffer[1] := $00;
PacketBuffer[2] := $96;
PacketBuffer[3] := $07;
PacketBuffer[4] := $06;
PacketBuffer[5] := $00;
PacketBuffer[6] := Byte(Length(text));
PacketBuffer[7] := $00;
CopyMemory(@PacketBuffer[8], @text[1], Length(text));
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);
end;

When I send it to server Tibia cuts last 2 digits!
How to manage it?

Muttley

[megano0body]

Whats wrong?

The data length.

[Ian]

select delphi

procedure tradesay(text:string);
PacketBuffer[0] := Byte(Length(text) + 4);

should be:

select delphi

procedure tradesay(text:string);
PacketBuffer[0] := Byte(Length(text) + 6);

[muttley]

Big thanks
It works.

[Ian]

(11-03-2009 07:48 AM)muttley Wrote:  Big thanks
It works.

Going forward, it would be easier for you to create a packet building class, like TibiaAPI's NetworkMessage. Then you don't have to worry about the size of the packet, adding the headers, encrypting, and all that stuff every time you just want to build a simple packet.

[megano0body]

(11-03-2009 12:20 PM)Ian Wrote:  

(11-03-2009 07:48 AM)muttley Wrote:  Big thanks
It works.

Going forward, it would be easier for you to create a packet building class, like TibiaAPI's NetworkMessage. Then you don't have to worry about the size of the packet, adding the headers, encrypting, and all that stuff every time you just want to build a simple packet.

Yep, if you do a networkmessage class your code will be more clean and easier to maintences..