Hi Jungs,
also ich hab eine
Paradox Datenbank und füge so ein Bild ein:
Delphi-Quellcode:
if OpenPictureDialog1.Execute then begin
path := ExtractFilePath(Application.ExeName) + 'pics\' + '_' + DBEdit1.Text + '_' + ExtractFileName(OpenPictureDialog1.FileName);
p1 := '.\pics\' + '_' + DBEdit1.Text + '_' + ExtractFileName(OpenPictureDialog1.FileName);
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
CopyFile(PChar(OpenPictureDialog1.FileName), PChar(path), false);
DBEdit4.Text := p1;
end;
Also als erstes klickt man auf das + bei der Navi. Komponente und dann gibt man die Daten ein.
Dann auf Bild laden und dann wird dieser Code (s.o.) ausgelöst. Dabei wird das Bild in den Unterordner pics des Programmverz. kopiert. In p1 steht das gleiche wie in path bis das am Anfang halt nicht der komplette Pfad des pics Ordner steht. Dadurch will ich es erzielen, dass wenn man Bilder in der
DB hat und das Proggi auf anderen PCs startet die Bilder auch gefunden werden.
Das funzt ja auch alles schön und gut.
Nur wenn ich jetzt ein Bild hinzufüge, ist es auch in der
Db. Aber es wird nicht angezeigt, bzw. meine Meldung kommt das er das Bild angeblich nicht finden kann. Ich muss mein Proggi erst beenden und wieder starten dann klappt alles ganz normal.
Woran könnte das liegen bzw. es muss ja wohl an dem Code oben liegen
Danke im Voraus.