Unterschiedliches Verhalten auf 2 PCs

[Willie1]

Hallo Leute,
ich habe schon seit Jahren ein Programm zum Anzeigen und Bearbeiten von Bildern einschließlich der Metadaten. Jetzt ist mir ein Fehler aufgefallen, der mich total überrascht.

Ich zeige die Skalierung in % an. Bild größer als die Projektionsfläche % < 100, genau die Fläche =100 %, kleiner > 100 %.
Soweit so gut, auf dem Desktop-PC klappt das prima. Auf einem Notebook werden unsinnige Werte > 80.000 % angezeigt. Das gleiche Programm und das gleiche Windows.

Ich weiß nicht, woran es liegt. Ich kann den Fehler nicht debuggen, weil sich die Delphi-Installation auf dem großen Rechner befindet und hier alles richtig angezeigt wird.
Ich bin sicher, ihr kriegt heraus, woran es liegt.

Delphi-Quellcode:

procedure TMainForm.ShowBigPicture(Nr: Integer);
const
  FMT = 'Skalierung %0.1f %%';
var
  DC: HDC;
  GDIGraphics: TGPGraphics;
  GDIImage: TGPImage;
  X,Y, W,H: Integer;
  a: Double;
  Txt, s: string;

  procedure InitImage;
  begin
    if Image <> nil then begin
      Image.Free;
      Image:=nil;
    end;

    Image:=TImage.Create(MainForm);
    Image.OnClick:=ImageMouseClick;
    Image.Parent:=Panel4;
    Image.Align:=alClient;
    Image.PopupMenu:=pmenu_GB;
    ClearImage(Image)
  end;

begin
  InitImage;

  RotateAndShowPic(BLi.Bildpfad_Name[Nr], Image, true);

  s:='-';
  BLi.BreHoe(Nr,X,Y);
  if (X > 0) and (Y > 0) then begin
    if Image.Width = W then a:=100 / Y * H else a:=100 / X * W;
    s:=Format(FMT,[a])
  end;
  lblSkal.Caption:=s;
end; {TMainForm.ShowBigPicture}

Gruß Willie.

Ich sehe grade, W und H scheinen nicht initialisiert zu sein. Das hab ich vor 10 Jahren geschrieben, da muss ich nachdenken.

[hoika]

Hallo,
mit dem Remote-Debugger kannst du das Programm auch auf den Laptop debuggen.

[himitsu]

Jupp, er hat es schon gesehn .... W und H sind nicht initialisiert, wobei das der Compiler es eigentlich dir auch laut genug sagen sollte.


ps:

Zitat:

Delphi-Quellcode:

    if Image <> nil then begin
      Image.Free;
      Image:=nil;
    end;

rate mal, was FreeAndNil(Image); macht.

pss:
Gut, es ist nicht falsch ... nur sinnlos bissl doppelt gemoppelt.
Free, bzw. FreeAndNil haben das if-assigned aka if<>nil bereits eingebaut.



Und ja, RemoteDebugger, sowie PA-Server, sind ganz nette Dinger.

[Uwe Raabe]

Zitat von himitsu:

rate mal, was FreeAndNil(Image); macht.

Genau genommen tut FreeAndNil(Image); aber nicht dasselbe. Dort wir erst auf nil gesetzt und dann Free aufgerufen. Ich habe schon Code gesehen, der nach so einer Umstellung nicht mehr richtig funktionierte. Was einem mit der Zeit halt so alles unterkommt...

[himitsu]

Ja, es müsste eigendlich NilAndFree heißen.

Aber hier sollte es keine Probleme bereiten.
Und im Grunde ist es auch garnicht so schlecht, das andersrum.

Probleme gibt es nur, wenn im Destructor auf die globale Variable zugegriffen wird.
Und aus der Instanz raus, sollte man sowieso immer SELF und nicht das Globale verwenden.


Wenn es im Free knallt, dann räumt der Destructor dennoch auf und das Objekt ist weg.
In diesem Fall wäre dann auch die Variable ungültig und es ist schön, dass sie nun auf NIL steht.

Man könnte es aber auch so machen, wenn unbedingt nötig.

Delphi-Quellcode:

try
  Image.Free;
finally
  Image := nil;
end;