TLMDGraphicList nicht gefunden?????

[ApoCalyps0]

Hi Delphianer.

Ich hoffe das ihr mir hier weiter helfen könnt. Ich schnalls irgendwie nicht.
Programm will mir weis machen, dass die TLMDGraphicList Komponente nicht gefunden werden kann.

Delphi-Quellcode:

var
  Form1: TForm1;
  LMDGraphicList1: TLMDGraphicList; <---- wird aber hier angegeben.....

implementation

{$R *.dfm}

procedure TForm1.GreatBeast2Click(Sender: TObject);
begin
  LMDGraphicList1.Create(self); <---- hier erstellt......
  LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList; <---- und hier aufgerufen
  DoubleBuffered := True;
  LMDLimage1.Visible:=true;
  LMDLimage1.ListIndex:=0;
end;

entweder will mich Delphi nur verarschen :evil: oder ich hab wirklich keinen Plan!!!!

Danke für eure Tips und Ratschläge schon mal im voraus..... :dp:

[DeddyH]

Versuch mal

Delphi-Quellcode:

LMDGraphicList1 := TLMDGraphicList.Create(self);

[edit] Nachtrag: Ist das eine Komponente? Dann setz mal

Delphi-Quellcode:

LMDGraphicList1.Parent := self;

dahinter.

[ApoCalyps0]

Hi DeddyH,

Zitat:

LMDGraphicList1 := TLMDGraphicList.Create(self);

funktioniert leider auch nicht. Fehler besteht weiterhin.

Bei

Zitat:

LMDGraphicList1.Parent := self;

macht delphi gleich garnicht mehr mit.

LMD sind Komponenten von: http://www.lmd.de/ für Delphi

Dennoch Danke

[DeddyH]

Wie lautet denn die genaue Fehlermeldung und wie sieht der Code zum Zeitpunkt des Fehlers aus?

[ApoCalyps0]

Fehlermeldung

siehe Anhang

[DeddyH]

Heißt die Klasse auch wirklich so und ist die entsprechende Unit eingebunden?

[Die Muhkuh]

Wenn die Klasse nicht so hieße oder die Unit fehlt, könnte er gar nicht kompilieren.

Wann kommt die Fehlermeldung denn? Wenn Du das Formular öffnest? Beim Öffnen des Projekts?

[DeddyH]

Stimmt, habe nicht darauf geachtet, dass da "Project2" in der Titelzeile stand.

[Die Muhkuh]

Lesen klappt halt besser, ohne Tomaten auf den Augen, Detlef ;)

[ApoCalyps0]

Servus MuhKuh.


Der Fehler tritt erst in Kraft, wenn ich das Menu öffne und das erste anzuzeigende Image anklicke.
Sprich, sobald das Programm in diese Procedure springt.

Delphi-Quellcode:

procedure TForm1.GreatBeast2Click(Sender: TObject);
var
LMDGraphicList1: TLMDGraphicList;
begin
  LMDGraphicList1 := TLMDGraphicList.Create(self);
  LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList;
  DoubleBuffered := True;
  LMDLimage1.Visible:=true;
  LMDLimage1.ListIndex:=0;
end;

[Die Muhkuh]

Hi,

ich würde mal sagen, dass der Fehler an dem hier steckt:

Delphi-Quellcode:

ReadComponentResFile

Kann es sein, dass es da diese Klasse nicht kennt?

Wenn Du debuggst, wo tritt der Fehler auf?

[DeddyH]

Wieso erzeugst Du die Liste bei jedem Klick und gibst sie nicht wieder frei? Außerdem ist sie ja wohl einmal global und einmal lokal deklariert.

[ApoCalyps0]

Weil die Liste mehrfach unterteilt ist.

Wenn ich die Komponente LMDGraphicList ins Prog einbau, funktioniert der Spaß ja, aber es wird mir zu groß.
Deshalb möchte ich ja die bilder während der Laufzeit einladen.

[DeddyH]

Es geht nicht um das Laden der Bilder, sondern um das Erzeugen der Liste.

[Die Muhkuh]

Würde ich nicht sagen.

Gesetz dem Fall, er hat die Unit für TLMDGraphicList nicht eingebunden, würde Delphi das Ding nicht kennen :arrow: Delphi compiliert nicht.

Ich gehe mal schwer davon aus, dass es an dem Res-Ding liegt.

Wenn der werte Herr mal mit dem Debugger durchsteppen würde, könnte er ja mal zeigen, wo es kracht...

[ApoCalyps0]

@deddyH.

Zeig mir bitte mal anhand des Quelltextes was du meinst. Ich setzte mich erst seid einer weile mit delphi auseinander und verstehe gerade nur Bahnhof.

[Die Muhkuh]

Detlef meint, dass hier das Problem ist:

Delphi-Quellcode:

LMDGraphicList1 := TLMDGraphicList.Create(self);

Ich denke aber, dass es hier liegt:

Delphi-Quellcode:

LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList;

Wie gesagt: Setz ein Breakpoint und steppe mal durch.

[ApoCalyps0]

Na LoL.

Ich weis es nun gleich garnicht.

Habs jetzt mal mit LMDGraphicList1.LoadfromFile versucht, war aber fürn ar... :wink:

[Die Muhkuh]

Bist jetzt mal mit dem Debugger dran gegangen?

Sonst ist das hier ein nur ein Rätselraten.

[ApoCalyps0]

Hallo MuhKuh und DeddyH

Der Debugger sagt mir garnix. Bzw. versteh ich's nicht.
Auf jedenfall springt der Debugger hier an.

Delphi-Quellcode:

LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphiclist;

ich nehme mal an, das dies einfach mal nicht mit ReadComponentResFile funktioniert.

[alzaimar]

Ist denn die Klasse auch registriert? Mach das mal mit 'RegisterClass'.

Ich sehe gerade, das Du noch 'am Anfang' bist. Ich würde die LMDListe nicht so laden und speichern, sondern über LoadFromFile und SaveToFile (oder wie das heißt).

Gehe zur Einkreisung des Problems Schritt-für-Schritt vor.
Erstelle ein kleines Projekt, das eine LMDGraphicList lädt und speichert. Wenn das klappt, kannst Du weiter machen.

[ApoCalyps0]

@ alzaimar

Mit LoadFromFile habe ich mich auch schon auseinander gesetzt. Hatte aber keinen Erfolg damit.

Der Debugger schmeisst mir immer diesen Fehler raus. (siehe Anhang)

[alzaimar]

Dann machst Du irgendetwas falsch. Lies dir mal genau die Fehlermeldung durch...

Das hier funktioniert natürlich einwandfrei:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  L : TLMDGraphicList;

begin
  L := TLMDGraphicList.Create(nil);
  Try
    L.LoadFromFile('c:\graphiclist.lst');
    L.SaveToFile('c:\graphiclist1.lst');
  Finally
    L.free;
  End
end;

Natürlich habe ich die Datei vorher erzeugt, indem ich eine TLMDGraphicList mit Bitmaps gefüllt und gespeichert habe.

[ApoCalyps0]

Was für eine datei soll *lst sein?

So wie ich das mit bekommen habe läd und speichert LMDGraphicList nur im *.grl Format??? :?

[alzaimar]

Du kannst Die Datei nennen, wie Du willst. Auch die Endung ist vollkommen irrelevant.

[Tyrolean]

Ich würde im Initialization-Teil einfach mal

Delphi-Quellcode:

RegisterClass(TLMDGraphicList);

reinschreiben. Ist fürs Streamen notwendig

[ApoCalyps0]

@ alzaimar

Habs mal bei mit eingefügt.

Delphi-Quellcode:

procedure TForm1.GreatBeast2Click(Sender: TObject);
Var
  L : TLMDGraphicList;

begin
  L := TLMDGraphicList.Create(nil);
  Try
    L.LoadFromFile('image.dat');
  DoubleBuffered := True;
  LMDLimage1.Visible:=true;
  LMDLimage1.ListIndex:=0;
Finally
    L.free;
end;
end;

funzt leider nicht.

@ Tyrolean

Zitat:

Ich würde im Initialization-Teil einfach mal

RegisterClass(TLMDGraphicList);

reinschreiben. Ist fürs Streamen notwendig

Steht doch schon in der Unit bei Uses mit drin, oder wie meinst du das?

Nochmals zur Erinnerung, mein Wissensstand ist relativ am Anfang was die Delphi Programmierung betrifft. Darum bitte langsam und weniger Brocken zuwerfen.

Bitte sachte, was Delphi betrifft bin ich ziemlich blond.

MfG Ap0

[ApoCalyps0]

Wer hat zu diesem Problem noch nen guten Ratschlag, ich weiß nicht mehr weiter.
Delphi zeigt mir immer ( egal, was ich versuche) Fehler.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.GreatBeast2Click(Sender: TObject);
//var
//LMDGraphicList1: TLMDGraphicList;
begin
  LMDGraphicList1 := TLMDGraphicList.Create(self);
//  LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList;
  DoubleBuffered := True;
  LMDLimage1.Visible:=true;
//  LMDLimage1.ListIndex:=0;
end;

Kommen die Fehler bei diesen Änderungen immer noch?

[Tyrolean]

Zitat:

Zitat von ApoCalyps0

Wer hat zu diesem Problem noch nen guten Ratschlag, ich weiß nicht mehr weiter.
Delphi zeigt mir immer ( egal, was ich versuche) Fehler.

Mach ein kleines Testproject und stelle es irgendwo online, eventuell hier, dann kann ich es mir anschauen. bzw du bemühst gleich den LMD-Support, der kann deutsch und ist normalerweise sehr kompetent und schnell.

Gruß aus den Bergen
Günter

[ApoCalyps0]

Fehler kommt da keiner mehr. Allerdings auch sonst nix.

[DeddyH]

Das heißt also, dass eine der auskommentierten Zeilen den Fehler verursacht, oder ;) ? Also entfernst Du die Kommentare wieder, bis die Fehler wieder auftauchen. Dann haben wir zumindest einen ganz konkreten Ansatz.

[ApoCalyps0]

den Fehler verursacht diese Zeile:

Delphi-Quellcode:

LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList;

Wenn ich nun allerdings LoadfromFile versuche geht da auch nix.

[Die Muhkuh]

Das es an der Zeile liegt, hab ich im elften Post von diesem Thread gesagt...

Schreib mal vor das end.

Delphi-Quellcode:

initialization
  RegisterClass(TLMDGraphicList);

[ApoCalyps0]

@ MuhKuh

Jetzt gibts zwar keine Probleme mehr mit

Delphi-Quellcode:

LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList;

allerdings werden auch keine Bilder mehr angezeigt.

[DeddyH]

Gibt es die image.dat denn überhaupt?

[ApoCalyps0]

jup is vorhanden

[Die Muhkuh]

Sind auch Bilder drin?

[ApoCalyps0]

Die datei is 3.6 MB groß, ich denk die Bilder sind drin.

[Die Muhkuh]

Denken ist aber ungleich wissen.

Kannst ja nicht jede beliebe Datei laden, weil Du denkst, das Bilder drin sind.