BlackBoard » Design, Programmierung & Entwicklung » Programmieren » Delphi DB-Client Blobs und Bilder » Hallo Gast [Anmelden|Registrieren]
Letzter Beitrag | Erster ungelesener Beitrag Druckvorschau | An Freund senden | Thema zu Favoriten hinzufügen
Neues Thema erstellen Antwort erstellen
Zum Ende der Seite springen DB-Client Blobs und Bilder
Autor
Beitrag « Vorheriges Thema | Nächstes Thema »
rhamirez
Neuling

Dabei seit: 15.01.2008
Beiträge: 12

DB-Client Blobs und Bilder       Zum Anfang der Seite springen

Guten Tag,
Ich möchte mit einem Delphi program Bilder und Texte in meine Datenbank (Firebird 1.5.xxx) reinschreiben und wieder auslesen.

Habe mir gedacht mit einem DBMemo und einem DBImage bekomme ich die Sachen angezeigt. Problem ist, ich weiß grade nicht mit welcher methode oder Procedur ich mit dem Image Bilder aus einer Datei laden kann, das sie auch dann in der Datenbank abgespeichert werden können.

Habe mir gedacht mit einem openpicture dialog bei onclick auf das image, aber was muss ich nun weiter programmieren?


procedure TForm1.CoverClick(Sender: TObject);
begin
if (OpenPictureDialog1.Execute) then
begin
Caption:= OpenPictureDialog1.Filename;
#wie wieter?
end;
05.03.2008 12:14 rhamirez ist offline E-Mail an rhamirez senden Beiträge von rhamirez suchen
phlox81 phlox81 ist männlich
Bote des Lichts und Moderator


images/avatars/avatar-2264.jpg

Dabei seit: 19.10.2002
Beiträge: 3.028
Herkunft: Irgendwo im Nirgendwo

      Zum Anfang der Seite springen

Kenn mich mit Delphi nicht aus.

Aber von C++ kenn ich es so, das man das Bild dann läd in eine Klasse.
Da ein Blob nur Binärdaten enthält, könntest du z.B. die Datei in einen Buffer laden,
und diesen in das Blob schreiben.

__________________
Intelligenz ist eine Illusion des Menschen

phlox81.de | codenode.de
05.03.2008 12:20 phlox81 ist offline E-Mail an phlox81 senden Homepage von phlox81 Beiträge von phlox81 suchen
rhamirez
Neuling

Dabei seit: 15.01.2008
Beiträge: 12

Themenstarter Thema begonnen von rhamirez
      Zum Anfang der Seite springen

Okay, vielen dank, eine weite frage

procedure TForm1.CoverClick(Sender: TObject);
var b: TBitmap;
begin
if (OpenPictureDialog1.Execute) then
begin
b:= TBitmap.Create;
Caption:= OpenPictureDialog1.Filename;
b.LoadFromFile(Caption);
Cover.Picture.Bitmap.Assign(B);
B.Free;

end;
end;

wie kann ich es ändern, wenn ich jpegs anstelle von bmps verwenden möchte?

uses jpeg
TJPEGImage soweit das okay
nur das cover.Picture.BitMap.Assign(b) wie muss das verändert werden
oder kann das DBImage keine jpegs darstellen?

Dieser Beitrag wurde 1 mal editiert, zum letzten Mal von rhamirez: 05.03.2008 14:15.

05.03.2008 13:00 rhamirez ist offline E-Mail an rhamirez senden Beiträge von rhamirez suchen
phlox81 phlox81 ist männlich
Bote des Lichts und Moderator


images/avatars/avatar-2264.jpg

Dabei seit: 19.10.2002
Beiträge: 3.028
Herkunft: Irgendwo im Nirgendwo

      Zum Anfang der Seite springen

ka. wie gesagt ich habe keine Ahnung von Delphi.
Aber wahrscheinlich kannst du ein TJPEGImage in ein TBitmap umwandeln.
Ähnliches dürfte für DBImage irgendwie gelten. Du musst halt dir mal die Dokumentation der Klassen anschauen.

Und verwende bitte code tags!

__________________
Intelligenz ist eine Illusion des Menschen

phlox81.de | codenode.de
05.03.2008 14:34 phlox81 ist offline E-Mail an phlox81 senden Homepage von phlox81 Beiträge von phlox81 suchen
Baumstruktur | Brettstruktur
Gehe zu:
Neues Thema erstellen Antwort erstellen
BlackBoard » Design, Programmierung & Entwicklung » Programmieren » Delphi DB-Client Blobs und Bilder

Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH