tfRookie Posted August 8, 2015 at 11:36 PM Posted August 8, 2015 at 11:36 PM Hi, wenn ich mit FreePascal/Lazarus das folgende Minimalbeispiel compiliere und ausfuehre (Connect/Disconnect) bekomme ich mit aktivem heaptrc eine Menge Fehler ueber nicht freigegebenen Speicher - siehe Screenshot. Es sind dabei jeweils die aktuellsten Versionen von FreePascal und der TF-Bindings in Verwendung. Kann mir jemand sagen, was ich hier falsch mache? Dankeschoen! unit Unit1; {$mode objfpc}{$H+} interface uses SysUtils, Forms, Dialogs, StdCtrls, IPConnection; type TForm1 = class(TForm) ConnectButton: TButton; DisconnectButton: TButton; procedure ConnectButtonClick(Sender: TObject); procedure DisconnectButtonClick(Sender: TObject); private AIPConnection: TIPConnection; end; var Form1: TForm1; implementation {$R *.lfm} procedure TForm1.ConnectButtonClick(Sender: TObject); begin AIPConnection := TIPConnection.Create; try AIPConnection.Connect('127.0.0.1', 4223); except on E: Exception do ShowMessage(E.Message); end; end; procedure TForm1.DisconnectButtonClick(Sender: TObject); begin if Assigned(AIPConnection) and (AIPConnection.GetConnectionState = IPCON_CONNECTION_STATE_CONNECTED) then AIPConnection.Disconnect; FreeAndNil(AIPConnection); end; end. Quote
photron Posted August 11, 2015 at 02:51 PM Posted August 11, 2015 at 02:51 PM Du machst da nichts falsch, sondern hast einen Bug in den Bindings gefunden. Teste mal bitte die angehängte korrigierte Version von IPConnection.pas.IPConnection.pas Quote
tfRookie Posted August 11, 2015 at 07:13 PM Author Posted August 11, 2015 at 07:13 PM Hi, Du machst da nichts falsch, sondern hast einen Bug in den Bindings gefunden. Teste mal bitte die angehängte korrigierte Version von IPConnection.pas. wenn ich den Test mit der neuen Version mit laufendem brickd durchfuehre, wird lt. heaptrc der gesamte Speicher wieder freigegeben. Wenn ich das selbe ohne brickd mache, loese ich natuerlich eine Exception aus, aber auch durch Aufruf von .Free scheint irgendwas nicht freigegeben zu werden. Danke und liebe Gruesse! Quote
photron Posted August 12, 2015 at 08:09 AM Posted August 12, 2015 at 08:09 AM Okay, und in dieser Version ist auch das korrigiert.IPConnection.pas Quote
tfRookie Posted August 12, 2015 at 08:21 AM Author Posted August 12, 2015 at 08:21 AM * Connect/Disconnect mit brickd ohne angeschlossenem Master Brick: OK * Connect/Disconnect mit brickd mit angeschlossenem Master Brick: OK * Connect/Disconnect ohne brickd: OK Super Vielen Dank! Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.