-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
wie gesagt, du kannst mir eine pm (da gibt es unten ein button) mit der datei als anhang schicken.
dazu brauchst du nicht meine mail adr.
--
warum stehen da überall namen drin? warum ist das teil 5 mb groß ohne bilder?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
poste das projekt ohne die bilder einfach hier.
lass die exe weg, und pack alles in ein zip oder 7z archiv.
dann ist das kein problem.
edit: außerdem kannst du mir das auch via pm schicken.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
pushen ist erst nach 24 stunden erlaubt.
ich war egtl. schon dabei dir eine längere antwort auf deinen geposteten sourcecode zu schreiben (mit tipps usw.), allerdings hat das wenig sinn, da ich mir gar nicht sicher bin, ob du das alles schon verstanden hättest. als ich dann sah, dass ratte einen kommentar gepostet hat, hab ich das abgebrochen.
da dein code dermaßen unübersichtlich ist,...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
jetzt mal was grundsätzliches:
sind die bilder bereits vorhanden oder muss man auch welche speichern können. für mich sieht das nach einer art slideshow programm aus.
falls dem so wäre, könntest du via FindFiles (siehe Codelib) alle Jpeg-Dateien auflisten lassen, in einer TStringList speichern und dann einfach vor oder zurück navigieren.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
ja, aber die sagt ja nur aus, dass dateiname oder verzeichnis falsch sind, bzw. nicht existieren. daher sollst du ja auch den dateinamen der an savetofile übergeben wird VOR dem speichern mal anzeigen.
dann kuckst du ob da alles ok ist, bzw. postest ihn hier. wie gesagt, evtl. hast du zwei backslashs drin.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
wie gesagt, dann sag mal was in der fehlermeldung steht. lass dir den dateinamen anzeigen und poste mir diese meldung (dialoge einfach via Strg-C kopieren und hier im forum mit Strg-V einfügen).
In der Hilfe von Delphi gibt es Infos zu FileExists.
Beispiel:
case FileExists(Dateiname) of
True: SHowMessage('Speichern OK!');
False: ShowMessage('Fehler beim Speichern der Datei: ' +...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
zu deinem ersten post:
du kannst nach dem Execute des SaveDialogs folgendes ergänzen:
if Execute then
begin
...
EdtFilename.Text := Filename;
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
welche variante benutzt du?
lass dir mal vor dem savetofile den dateinamen (also den kompletten, den du auch an savetofile übergibst) in einer showmessage anzeigen.
evtl. ist der backslash doppelt oder so.
edit: zur überprüfung ob gespeichert wurde kannst du den dateinamen auf vorhandensein nach dem savetofile mit fileexists prüfen (gibt true zurück, wenn datei existiert) und du solltest...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
so würde ich das bei einem image machen:
var
SD: TSaveDialog;
begin
SD := TSaveDialog.Create(Self);
with SD do
begin
Filter := 'Jpeg Files (*.jpg)|*.jpg';
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
das mit dem "amateurhaft" war nicht böse gemeint. nur wirst du später merken, dass es auf dauer zu nichts führt. nehmen wir mal an, du willst den dateinamen in einer ini-datei speichern. dann übergibst du dort INI.WriteString('Header', 'Path', Label3.Caption). Dann hast du nicht nur ein label, sondern mal 20 oder noch mehr.
irgendwann verlierst du dann den überblick was jetzt egtl. label3 war....
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
sollte egtl. nichts ausmachen, ist aber wirklich unnötig.
du solltest deinen dateinamen in einer variablen ablegen und nicht via label.caption darauf zugreifen. das ist amateurhaft bringt fehler mit sich (wenn du bspw. mal vergisst das label zu aktualisieren (also dessen caption)).
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
du fügst folgende units zu deinem programm:
uses
{ ... },
ActiveX, // IMalloc
ShellAPI, // SHGetSpecialFolderLocation() und SHGetPathFromIDList()
ShlObj; // CSIDL_-Konstanten
dann bindest du diese funktion ein:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
siehe meinen link oben (das edit).
was ich mit der frage meinte war deine AssignFile, Rewrite usw. Konstruktion. Ich wage zu bezweifeln, dass die funktioniert (von welchem typ ist denn Textdatei?).
edit: ein "n" für "den" ergänzt.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by dahead,
18. Dez 2005
das stichwort, nach dem du suchen solltest, lautet GetShellFolder.
Damit erfährst du den Pfad des Desktops (CSIDL) und übergibst ihn via SD.InitialDir := xxx an den SaveDialog.
Frage: Warum speicherst du dein Bild nicht einfach via Image1.Picture.SaveToFile(...)?
Edit: Link hinzugefügt.
