Forum: Programmieren allgemein
Delphi
by schöni,
6. Apr 2012
Super! Mit dieser Modifikation funktioniert es. :thumb:
Forum: Programmieren allgemein
Delphi
by schöni,
6. Apr 2012
Nein, ich hatte Bilder von meiner Digitalkamera verwendet. Aber wenn ich die verkleinere, funktioniert das Überblenden wie gewünscht.
Interessanterweise funktioniert das Programm mit D7 Personal übersetzt wunderbar, aber nicht so mit Turbo Delphi übersetzt, wo ich die Komponente nicht installieren kann. Dort erhalte ich eine
EAccessViolation in Modul PSDemo.exe bei Adresse 000A62A9,...
Forum: Programmieren allgemein
Delphi
by schöni,
5. Apr 2012
Ok, danke, das funktioniert. Ich konnte die Komponente ohne die Datenbankteile (auskommentiert) installieren und das Demo starten.
Die Überblendeffekte funktionieren mit den kleineren mitgelieferten Bildern einwandfrei. Ich habe jedoch eigene Bilder von meiner DigiCam, die ein ganzes Stück größer sind. Da klappt das Überblenden nicht mehr so schön flüssig. Habe eienen Athlon mit 1GHz. 512...
Forum: Programmieren allgemein
Delphi
by schöni,
4. Apr 2012
Das weiß ich. Was ich aber nicht weiß, ist, wie wird in der Eigenschaft Picture.Data in der .dfm Datei das Bild abgelegt?
Die reinen Bilddaten ohne Headerinfo oder die komplette Datei?
@DeddyH hat, wie hier auch zu lesen ist, eine PicShow-Komponente feilgeboten. In den mitgelieferten Demos gibt es in den Formulardateien die Felder
Picture.Data und
PgPicture.Data
Forum: Programmieren allgemein
Delphi
by schöni,
4. Apr 2012
Asche auf mein Haupt. Sorry, ich hatte den Pfadnamen falsch.
FindFirst(FFileName)... und nicht, wie es richtig gewesen wäre:
FindFirst(
ExtractFilePath(FFileName)+'*'+ExtractFileExt(FFileName),...
Forum: Programmieren allgemein
Delphi
by schöni,
4. Apr 2012
Aaaaaaber eine Frage habe ich schon jetzt an DeddyH:
Die Picshow Demos nutzen ja die zu installierende PicShow-Komponente. Nun habe ich jedoch nur D7 Personal und die kostenlose Turbo Delphi Version. In letzterer kann ich keine Fremdkomponenten installieren. Erstere enthält keine Datenbank Komponenten. Ich muss also die Komponenten komplett per Hand instantiieren. Deshalb die Frage:
Was ist...
Forum: Programmieren allgemein
Delphi
by schöni,
4. Apr 2012
Danke @Himitsu, @ConnorMcLeod, DeddyH....
@Himitsu:
Danke für den Hinweis, werde mir meinen Quelltext noch mal bezüglich der Variablen "stillfiles" ansehen.
Aber:
Ich wollte allerdings eigentlich eine selber erstellte Lösung schaffen. :wink: Der Filesearcher von DeddyH sieht gut aus, aber damit nutze ich wieder eine Lösung, die jemand anderes geschrieben hat. Wenn ich aber...
Forum: Programmieren allgemein
Delphi
by schöni,
1. Apr 2012
Danke @DeddyH, werde ich machen. Sieht vielversprechend aus.
Forum: Programmieren allgemein
Delphi
by schöni,
1. Apr 2012
Hallo,
ich habe folgenden Quelltext erstellt:
var StillFiles: Integer;
begin
Image.Proportional := true;
Image.Stretch := true;
FFileList := TStringList.Create;