Programm mit Zugriffsverletzung - 1. PC funktioniert - 2. Nicht

[himitsu]

Zitat von jaenicke:

Statt hier copyrightgeschützten Quelltext der Firemonkey-Bibliotheken zu posten

Die Demos von Delphi sind seit 5 Jahren öffentlich und für alle frei zugänglich.
radstudiodemos-code\Object Pascal\FireMonkey Desktop\MetropolisUIFlipViewDemo\FMX.FlipView.Data .pas

Es ist das Einzige, was man praktisch wöchentlich am Delphi aktualisieren kann, auch nach dem Jahr noch.
http://sourceforge.net/projects/radstudiodemos/
http://sourceforge.net/p/radstudiodemos/code/HEAD/tree/
http://docwiki.embarcadero.com/CodeE...ategory:Sample
http://docwiki.embarcadero.com/CodeE...olsDemo_Sample
http://docwiki.embarcadero.com/RADSt...Changes_for_XE
...

Wenn das Demoverzeichnis nicht bereits als SVN-Repository vorliegt, dann kann man es einfach neu auschecken.
Ansonsten mal updaten und schauen, ob es eventuell einen Bugfix gab.

[jaenicke]

Zitat von himitsu:

Die Demos von Delphi sind seit 5 Jahren öffentlich und für alle frei zugänglich.
radstudiodemos-code\Object Pascal\FireMonkey Desktop\MetropolisUIFlipViewDemo\FMX.FlipView.Data .pas

Ok, ich habe mich verguckt, ich dachte die Datei wäre aus der Bibliothek von FireMonkey.

Zitat von himitsu:

Wenn das Demoverzeichnis nicht bereits als SVN-Repository vorliegt, dann kann man es einfach neu auschecken.
Ansonsten mal updaten und schauen, ob es eventuell einen Bugfix gab.

Leider nicht. Das war das erste was ich in XE5 gemacht hatte.

[Harry Stahl]

Da steht aus irgendeinem Grund unter 64-Bit irgendwie die OLE-Funktionalität nicht richtig zur Verfügung.

Retten könnt Ihr es unter WIN64 so:

Delphi-Quellcode:

procedure TImageDataSource.Load;
const
  ImagesPath = './images/';
var
  SR: TSearchRec;
  Res: Integer;
  I: Integer;
  ImagesFilter: string;
begin
  oleInitialize (NIL); // HS: ADD  + ActiveX to units

  I := 0;
  // Find all images
  ImagesFilter := ImagesPath + '*.jpg';
  Res := FindFirst(ImagesFilter, faAnyFile, SR);
  while Res = 0 do
  begin
    SetLength(FImages, I + 1);
    FImages[I] := TBitmap.CreateFromFile(ImagesPath + SR.Name);
    Res := FindNext(SR);
    Inc(I);
  end;
  if Length(FImages) > 0 then
    FCurrentIndex := 0
  else
    FCurrentIndex := -1;

  FindClose (sr);  // HS: ADD
end;

Also ActiveX zum Uses-Abschnitt hinzu und OleInitialize in der Procedure aufrufen.
Ein Aufruf von OleInitialize zur Intialisierung der Unit reicht nicht, anscheinend gibt es irgendwo zwischendurch an anderer Stelle ein OleUnitialize.

[nur am Rande bemerkt: Findclose habe ich auch hinzugefügt, wird gerne vergessen und führt zu einer Vielzahl von Problemen]

Der Fehler tritt genau hier auf:

Delphi-Quellcode:

class function TCanvasD2D.ImagingFactory: IWICImagingFactory;
begin
  if not Assigned(FImagingFactory) then
  begin
    CoCreateInstance(CLSID_WICImagingFactory, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
      IUnknown, FImagingFactory); // <-- Hier wird unter Win64 immer NIL zurückgeliefert, wenn OLEInitialize zuvor nicht aufgerufen wurde
  end;
  Result := FImagingFactory;
end;

Im Ergebnis steht dann also keine ImagingFactory zur Verfügung und dann kracht's eben.

[jaenicke]

Dann wäre wohl das am Ende der Unit am sinnvollsten:

Delphi-Quellcode:

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;

// EDIT:
Helfen tut das bei mir allerdings nichts. Es geht nach wie vor nicht.

[Harry Stahl]

Zitat von jaenicke:

Dann wäre wohl das am Ende der Unit am sinnvollsten:

Delphi-Quellcode:

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;

// EDIT:
Helfen tut das bei mir allerdings nichts. Es geht nach wie vor nicht.

Wobei ich ja geschrieben habe, dass es nicht funktioniert, wenn man das wie hier von Dir vorgeschlagen macht (was ich ja normalerweise auch so machen würde). Bei mir klappt es nur, wenn ich OleInitialize direkt am Anfang der Prozedur aufrufe.

[jaenicke]

Entschuldigung, das habe ich überlesen.

// EDIT:
Klar, das Load wird ja in einem eigenen Thread aufgerufen...
Und OLE muss pro Thread initialisiert werden. Sprich:

Delphi-Quellcode:

procedure TSplashImagesLoader.Execute;
begin
  if not Assigned(Form) or not Assigned(FImages) then
    Exit;

  Synchronize(FForm.ShowSplashLoading);
  try
    OleInitialize(nil);
    try
      FImages.Load;
    finally
      OleUninitialize;
    end;
  finally
    Synchronize(FForm.HideSplashLoading);
  end;
end;

// EDIT2:
Ich habe es mal in die QC gepackt:
http://qc.embarcadero.com/wc/qcmain.aspx?d=124025

[Harry Stahl]

Wobei ich gerade feststelle, dass nicht alle Bilder eingelesen werden, einige dazwischen sind schwarz, mitunter in zufälliger Reihenfolge.

Vorab sei noch mal bemerkt, dass in Delphi XE3 (nach meiner Meinung bislang noch die stabilste FMX-Fassung) noch alles richtig funktionierte, sowohl unter 32 als auch unter 64 bit.

Zitat von jaenicke:

Klar, das Load wird ja in einem eigenen Thread aufgerufen...
Und OLE muss pro Thread initialisiert werden. Sprich ...

Ja, so wäre es wohl richtig. Dennoch werden nicht alle Bilder gelesen, einige sind schwarz.

Erst wenn man ein Synchronize auch für die Load-Funktion hinzufügt:

Synchronize (FImages.Load); geht es.

Was eigentlich Unsinn ist, da man Synchronize ja normalerweise nur für den Aufruf von Proceduren des Mainthreads verwendet. FImages ist aber eine lokale Thread-Variable vom Typ der Klasse "TAbstractDataSource", gehört nach meinem Verständnis also zu dem Thread "TSplashImagesLoader". Irgendwie könnte man den Verdacht bekommen, die Thread-Verwaltung funktioniert seit XE4 nicht mehr so richtig in FireMonkey. Wir hatten hier ja schon mal so ein Problem, mit Videoaufnahmen in Zusammenhang mit einem Thread, wo das alles nicht (mehr) so richtig funktionierte (Demo VideoCaptureHD)...

Es wäre schön, wenn EMBA bei einer neuen Delphi- Version einfach mal die eigenen mitgelieferten Demos testen würde, ob die noch funktionieren...

[Kathmai]

Hallo...

Vielen Dank erstmal an Euch für die antworten.
Komisch ist nur (es werden ca. 66 JPEG's geladen) das die Fehlermeldung nur einmal kommt.

@Harry: Hab das mal so geändert wie Du es in Deinem letzten Beitrag geschrieben hast. Kann es aber erst am Montag testen da der PC wo es nicht funktioniert auf Arbeit steht.

Es sind aber beide (Entwicklungs-PC und dort wo es nicht funktioniert) Win 7 64Bit.

Dank Dir - werde am Montag mal Rückmeldung geben.

Thomas