Array of Integer und crash

[EWeiss]

Ich hab ein Array of Integer in einer Procedure definiert.

Delphi-Quellcode:

type
  TOutFrameDelay = array of Integer;
  POutFrameDelay = ^TOutFrameDelay;
....
procedure GetGifFrameDelays(InGifImage: Cardinal; InFrameCount: UINT;
  var OutFrameDelay: TOutFrameDelay);

wenn ich nun das Array redimensioniere dann kracht es mal wieder.

SetLength(OutFrameDelay, InFrameCount - 1);

SetLength müsste so doch auch mit Integer funktionieren oder nicht?
Was läuft hier wieder schief? LOL

Bin wieder mal die ganze Nacht wach wird zeit für's Bett.. hehehehehee

gruss

[haentschman]

Moin...

Was spricht gegen TList<Integer>. Da hast du das Pointer geschubse nicht.

[EWeiss]

Zitat von haentschman:

Moin...

Was spricht gegen TList<Integer>. Da hast du das Pointer geschubse nicht.

Wie meinst das?
Eigentlich müsste das doch funktionieren frage mich nur warum nicht.

gruss

[Uwe Raabe]

Zitat von EWeiss:

procedure GetGifFrameDelays(InGifImage: Cardinal; InFrameCount: Integer;
var OutFrameDelay: TOutFrameDelay);[/DELPHI]

Liegt vielleicht daran, was dieser procedure übergeben wird?

[EWeiss]

var OutFrameDelay: TOutFrameDelay Habe gelesen das man hier den var Parameter übergeben soll wenn eine Type Deklaration für das Array angelegt wurde.

Aber auch wenn ich diesen entferne kracht es.
Was anderes fällt mir da jetzt nicht ein.

Das Image ist korrekt, der FrameConter ist 14 also auch korrekt.
Übrig bleibt dann nur das OutFrameDelay.

gruss

[haentschman]

Zitat:

Wie meinst das?

damit wärst du schon fertig ohne die Pointer Problematik und Arrays als Parameter.

[EWeiss]

Zitat von haentschman:

Zitat:

Wie meinst das?

damit wärst du schon fertig ohne die Pointer Problematik und Arrays als Parameter.

Ich habe kein Problem mit dem Pointern nur mit dem Array.

Delphi-Quellcode:

procedure GetGifFrameDelays(InGifImage: Cardinal; InFrameCount: UINT;
  var OutFrameDelay: TOutFrameDelay);

Delphi-Quellcode:

procedure LoadGif;
var
  FrameCount: UINT;
  FrameDelay: TOutFrameDelay;
begin

  FrameCount := 0;

  if GetGifFrameCount(gp.GifImage, @GuidFDT, FrameCount) = S_OK then
    If (FrameCount - 1) = 0 then
    begin
      SetLength(FrameDelay, 0);
    end else
    begin
      GetGifFrameDelays(gp.GifImage, FrameCount, FrameDelay);
    end;
end;

Jetzt brat mir einer nen Storch warum geht das nicht.

grrrr... LOL

gruss

[Uwe Raabe]

Zitat von EWeiss:

Jetzt brat mir einer nen Storch warum geht das nicht.

Funktioniert doch! Mangels weiterer Informationen habe ich das mal auf ein Minimum runter gebrochen:

Delphi-Quellcode:

program Project219;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TOutFrameDelay = array of Integer;

procedure GetGifFrameDelays(InGifImage: Cardinal; InFrameCount: Cardinal;
  var OutFrameDelay: TOutFrameDelay);
begin
  SetLength(OutFrameDelay, InFrameCount - 1);
end;

procedure Main;
var
  FrameCount: Cardinal;
  FrameDelay: TOutFrameDelay;
begin

  FrameCount := 4;

//  if GetGifFrameCount(gp.GifImage, @GuidFDT, FrameCount) = S_OK then
    If (FrameCount - 1) = 0 then
    begin
      SetLength(FrameDelay, 0);
    end else
    begin
      GetGifFrameDelays(0, FrameCount, FrameDelay);
    end;

  Writeln('OK');
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

[p80286]

Zitat von EWeiss:

Ich habe kein Problem mit dem Pointern nur mit dem Array.

Sicher?
der Pointer muß auf Myarray[0] zeigen.

(ich hab jedenfalls keine Zuweisung gesehen?)

Gruß
K-H

[EWeiss]

Dank euch muss mir das nochmal ansehen.
Bin jetzt wieder dabei.

der Pointer muß auf Myarray[0] zeigen. Wie ? Wenn ich das Array vorher nicht dimensionieren kann.
Es ist ja dann noch nicht mal initialisiert ohne SetLength.

gruss