Forum: Datenbanken
Delphi
by DeddyH,
3. Mai 2009
Entschuldige, dass ich hier unmodifizierten Code aus einem meiner Programme eingestellt habe, den Du so nicht 1:1 übernehmen kannst. Ein klein wenig Eigeninitiative hatte ich schon erwartet :?.
Forum: Datenbanken
Delphi
by DeddyH,
1. Mai 2009
Zeig doch nochmal den aktuellen Code zum Speichern.
Forum: Datenbanken
Delphi
by DeddyH,
1. Mai 2009
Und welchen Feldtyp hast Du da genommen?
Forum: Datenbanken
Delphi
by DeddyH,
30. Apr 2009
Also, in dieser Reihenfolge funktioniert es bei mir:
- Append
- Blobstream erzeugen
- Blobstream füllen
- Blobstream freigeben
- Post
Wobei ich aber zugeben muss, dass ich die Daten nicht überprüft habe.
Forum: Datenbanken
Delphi
by DeddyH,
30. Apr 2009
Schau doch inzwischen mal, ob das hier funktioniert: http://www.shivi.de/eddb/index.php?action=artikel&cat=3&id=1297&artlang=de. Muss man das Post weglassen? Zumindest sehe ich da keinen entsprechenden Aufruf, obwohl mir das komisch vorkommt. Auf einer (türkischen?) Seite ist mir aufgefallen, dass der Stream vor dem Post freigegeben wird. Probier halt mal ein wenig.
Forum: Datenbanken
Delphi
by DeddyH,
30. Apr 2009
Also entweder Append oder Edit, so wie oben macht das ja nicht viel Sinn.
Forum: Datenbanken
Delphi
by DeddyH,
30. Apr 2009
Kommt denn nach dem Append noch ein Post?
Forum: Datenbanken
Delphi
by DeddyH,
30. Apr 2009
Da bin ich momentan überfragt. Ich kann aber gerne heute Abend zu Hause mal nachsehen, wie ich das gemacht habe.
Forum: Datenbanken
Delphi
by DeddyH,
30. Apr 2009
In Zeile 5 steht doch explizit "ADOTable1.Edit;" :gruebel:
Forum: Datenbanken
Delphi
by DeddyH,
29. Apr 2009
Nun sag doch mal, wo genau. Der Fehler muss ja erst einmal eingegrenzt werden.
Forum: Datenbanken
Delphi
by DeddyH,
29. Apr 2009
In welcher Zeile kommt der Fehler denn?
Forum: Datenbanken
Delphi
by DeddyH,
29. Apr 2009
Kann das sein, dass Du die Streams verwechselt hast? Mal aus dem Kopf (daher keine Garantie):var
blob: TAdoBlobStream;
fs:TMemorystream;
begin
AdoTable1.edit;
blob := TADOBlobStream.Create(AdoTable1Bild, bmwrite);
try
fs := TMemorystream.create();
ADOImage.Picture.Bitmap.SaveToStream(fs);
fs.Seek(0, soFromBeginning);
Forum: Datenbanken
Delphi
by DeddyH,
29. Apr 2009
Das liegt daran, dass Du ja keine Datei von der Festplatte lädst, sondern ein Bild aus einem Image haben möchtest. Du musst also den FileStream in einen MemoryStream ändern und das Bild dort hineinladen. Der Rest mit CopyFrom usw. bleibt dann aber gleich.
Forum: Datenbanken
Delphi
by DeddyH,
29. Apr 2009
Dann versuch es mal hiermit: http://www.swissdelphicenter.ch/torry/showcode.php?id=1271
Forum: Datenbanken
Delphi
by DeddyH,
29. Apr 2009
Schau mal hier: http://edn.embarcadero.com/article/27462