Помогите с правильным написанием обращения к процедуре?

← →
dimich1978 © (2003-02-05 08:32) [0]

в юните LongDataTransfer описана функция ReceiveLongText:

Type TMySProc = procedure(const S:AnsiString);
function SendLongText(Socket:TCustomWinSocket; S:String):boolean;
function ReceiveLongText(Socket:TCustomWinSocket;MySProc:TMySProc;SafeCalledStr :string = ""):boolean;

В Сервере пишу на прием пакетов:
.....
implementation

uses LongDataTransfer;

{$R *.DFM}
.....
Procedure tform1.DataProcessing(S1:String);
begin
ShowMessage(S1);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
(???) ReceiveLongText(Socket,DataProcessing);
end;

Но выдается ошибка в строке (???)
[Error] Unit1.pas(128): Incompatible types: regular procedure and method pointer

В чем дело не пойму, подскажите где тут я накололся?

← →
Digitman © (2003-02-05 08:53) [1]

ReceiveLongText(Socket,@DataProcessing);

← →
dimich1978 © (2003-02-05 09:00) [2]

Теперь пишет, что
[Error] Unit1.pas(128): Variable required

← →
Digitman © (2003-02-05 09:43) [3]

var
MySProc:TMySProc;
..
MySProc := @DataProcessing;

ReceiveLongText(Socket,@MySProc);

>>Digitman
MySProc := @DataProcessing;
В этой строке все равно пишет ощибку
[Error] Unit1.pas(129): Variable required

Type TMySProc = procedure( const S:AnsiString) of object;
function SendLongText(Socket:TCustomWinSocket; S:String):boolean;
function ReceiveLongText(Socket:TCustomWinSocket;MySProc:TMySProc;SafeCalledStr :string = ""):boolean;

В Сервере пишу на прием пакетов:
.....
implementation

uses LongDataTransfer;

{$R *.DFM}
.....
Procedure tform1.DataProcessing( const S:AnsiString);
begin
ShowMessage(S1);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
ReceiveLongText(Socket,DataProcessing);
end;

Помогите с правильным написанием обращения к процедуре? Найти похожие ветки