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:

zusammenfalten · markieren

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.

AccessViolation bei Parameterübergabe (RecieveBuf)

AccessViolation bei Parameterübergabe (RecieveBuf)

Forumregeln