AccessViolation bei Parameterübergabe (RecieveBuf)

[Bloodfire]

Hi!

Ist daran etwas falsch?

Delphi-Quellcode:

procedure TInvitationForm.TcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  AInfo: RInvitation;
  APort: Integer;
begin
   ClientSocket.ReceiveBuf(AInfo,SizeOf(AInfo));

   AIFiles.Status:=AInfo.Status;
   AIFiles.UsePort:=AInfo.UsePort;
end;

Sofort bei
AIFiles.Status:=AInfo.Status; kommt eine Zugriffsverletzung und ich weiß ehrlich gesagt nicht, weshalb?


Hier noch die Sende-Prozedur:

Delphi-Quellcode:

procedure TInvitationForm.Send(FText: String; FPort: Integer);
var
  AInfo: RInvitation;
begin
   AInfo.Status:=FText;
   AInfo.UsePort:=FPort;

   try
    if TcpClient.Connect then
      begin
         TcpClient.SendBuf(AInfo,SizeOf(AInfo));
      end;
   finally
     TcpClient.Disconnect;
   end;
end;

Danke im Vorraus.