AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Programm mit Zugriffsverletzung - 1. PC funktioniert - 2. Nicht

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

Ein Thema von Kathmai · begonnen am 11. Apr 2014 · letzter Beitrag vom 15. Apr 2014
 
Benutzerbild von Kathmai
Kathmai

Registriert seit: 3. Sep 2003
Ort: Böblingen
21 Beiträge
 
Delphi 11 Alexandria
 
#1

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

  Alt 11. Apr 2014, 13:53
Hallo Leute,

hab ein kleines Problem. Habe das Firemonkey Sample "FlipViewDemo" etwas abgeändert. Funktioniert soweit aber auf dem Entwicklungs PC läuft es beim Laden der Bilder ohne Probleme.
Auf dem PC wofür das Programm bestimmt ist, kommt eine Zugriffsverletzung und zwar in Form von "Zugriffsverletzung bei Adresse .....A14554 in Modul 'ScreenPlayer.exe'. Lesen von Adresse 0000000000000000".

Die Bilder werden von einem Ordner geladen (JPEG's) und im Sample Programm in einem Thread geladen im Hintergrund.

Auf dem Entwicklungs-PC läuft alles Problemlos auf dem anderen kommt der Fehler. - Selben Bilder und Anzahl wird verwendet.

2. PC wo die Zugriffsverletzung kommt: Zotac nano AQ-01 mit Samsung EVO 120 GB und 4GB RAM - CPU AMD A4-5000

- Beides Win7 Pro 64Bit

Debuggen kann ich auch nicht da Delphi den Prozess nicht "erzeugen" kann. Hab schon Delphi mit admin Rechten gestartet aber bringt auch nix. Kann das Programm nur ohne Debugger zum laufen kriegen.

Hat jemand eine Ahnung woran das liegen könnte?

Hier die Ladefunktion (nichts verändert gegenüber des Samples von Embarcadero).

Delphi-Quellcode:
procedure TImageDataSource.Load;

var
  SR: TSearchRec;
  Res: Integer;
  I: Integer;
  ImagesFilter: string;
begin
  I := 0;

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

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz