Forum: Object-Pascal / Delphi-Language
by Alexander,
23. Mär 2005
Keine Angst, das wird auf jeden Fall klappen :thumb:
Forum: Object-Pascal / Delphi-Language
by Alexander,
23. Mär 2005
Ach so, ich dachte man könnte das importieren. Naja, wenn du so wieso Delphi bald hast ;)
Forum: Object-Pascal / Delphi-Language
by Alexander,
23. Mär 2005
Funktioniert mein Programm nur als kompilierte Version oder kannst du auch das selber kompilieren? Dann funktioniert es nicht?
Wenn ich die richtig verstanden habe, dann scheint das wirklich ein Bug von L. sein. Bleiben dir zwei Möglichkeiten:
Schaun, ob du irgendwo günstig Delphi herbekommst oder kucken ob es bereits Bug-Fixes gibt. Den Bug würde ich auf jedenfall melden.
Forum: Object-Pascal / Delphi-Language
by Alexander,
23. Mär 2005
Ich hatte gerade mal kurz Zeit und habe es mit meinem Delphi mal nachgebaut (siehe Anhang). Bei mir funktioniert das wunderbar.
Kannst es ja mal bei dir kompilieren. Kannst ja auch mal versuchen, dass Bitmap direkt, nachdem der Screenshot geschossen wurde, zu speichern. Ohne Umweg über's Image. Dann weist du zumindest, ob es am TImage liegt.
Forum: Object-Pascal / Delphi-Language
by Alexander,
23. Mär 2005
Habe ich schon geschrieben und dass du den String noch einfügen musst, ist ja klar.
Ich weiß momentan leider nicht weiter, eigentlich sollte es funktionieren.
Du könntest aber mal dein Programm-Source hochladen, evtl. können wir so besser helfen...
Forum: Object-Pascal / Delphi-Language
by Alexander,
23. Mär 2005
Sieht denn der Screenshot im Image richtig aus? Also ohne zu speichern?
Hast du schon mal einfach:
Image1.Picture.SaveToFile();
probiert? Auch wenn wahrscheinlich einfach nur die Methode im bitmap aufgerufen wird.
Forum: Object-Pascal / Delphi-Language
by Alexander,
22. Mär 2005
Mit der Meldung würde ich das auch eher so schreiben:
procedure TForm7.speichern(Sender: TObject);
begin
try
Image1.Picture.Bitmap.SaveToFile('TestBitmap.bmp');
ShowMessage('Bild wurde gespeichert.');
except
ShowMessage('Bild konnte nicht gespeichert werden.');
end;
end;