Hi,
I think you have an other Indi version. Try this to fix the problem:
1. Delete the event form the code
unit Unit1; { _,-*´`*-._,° }
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UdpSockUtil, ExtCtrls, StdCtrls, IdBaseComponent,
IdComponent, IdUDPBase, IdUDPServer, IdSocketHandle, multiT2;
type
TForm1 = class(TForm)
IdUDPServer1: TIdUDPServer;
MultiT1: TMultiT;
procedure MultiT1BlobDown(ID: Integer);
procedure MultiT1BlobMove(ID: Integer);
procedure MultiT1BlobUp(ID: Integer);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MultiT1BlobDown(ID: Integer);
var i: integer;
begin
//Down
for i := 0 to length(MultiT1.data)-1 do
begin
if MultiT1.data[i].ID = ID then
begin
Form1.Canvas.Pixels[round(MultiT1.data[i].X * Screen.Width - (Form1.Left + 4)), round(MultiT1.data[i].Y * Screen.Height - (Form1.Top + 30))]
:= clRed; //+4, +30 is for the window frame
end;
end;
end;
procedure TForm1.MultiT1BlobMove(ID: Integer);
var i: integer;
begin
//Move
for i := 0 to length(MultiT1.data)-1 do
begin
if MultiT1.data[i].ID = ID then
begin
Form1.Canvas.Pixels[round(MultiT1.data[i].X * Screen.Width - (Form1.Left + 4)), round(MultiT1.data[i].Y * Screen.Height - (Form1.Top + 30))]
:= clBlack; //+4, +30 is for the window frame
end;
end;
end;
procedure TForm1.MultiT1BlobUp(ID: Integer);
var i: integer;
begin
//Up
for i := 0 to length(MultiT1.data)-1 do
begin
if MultiT1.data[i].ID = ID then
begin
Form1.Canvas.Pixels[round(MultiT1.data[i].X * Screen.Width - (Form1.Left + 4)), round(MultiT1.data[i].Y * Screen.Height - (Form1.Top + 30))]
:= cllime; //+4, +30 is for the window frame
end;
end;
end;
end.
2. Klick on the udpserver component on the form
3. Klick on events at the object inspector
4. Doubleklick on the OnUDPRead event
5. Copy the code between the new createt “begin” and “end”
MultiT1.analizepackage(@AData);
6. Try to compile it
7. If it not work, copy the new createt code and post it here, than I can give you a working code.
Please, see screenshot.
