Allereerst welkom!
Door je variabele "Jpeg" te noemen maar je het er ook niet echt duidelijker op.
Als je niet precies weet wat en of er iets uit je database geplukt wordt, dan moet je
daar eerst achteraan (ongeacht of de data die uit de database komt wel daadwerkelijk
van het type is dat je verwacht).
Wat is bijvoorbeeld de grootte van je memorystream nadat je het veld heb opgehaald?
Als die groter is dan 0, dan kun je (tijdelijk) het resultaat van je stream wegschrijven
naar een bestand, die je daarna dan kunt openen met een hex-editor om te zien wat
er precies aan data in je stream staat.
Delphi Code:
var
Stream: TMemoryStream;
Bitmap: TBitmap;
begin
Stream := TMemoryStream.Create;
try
TBlobField(BindSourceDB1.DataSet.FieldByName('VOERTUIGJPG')).SaveToStream(Stream);
if (Stream.Size > 0) and
(Stream.Seek(0, soFromBeginning) = 0) then
begin
Stream.SaveToFile('DitIsEenBlobTest.bmp');
// Bitmap := TBitmap.Create;
// try
// Bitmap.LoadFromStream(Stream);
// Image1.Bitmap.Assign(Bitmap);
// finally
// Bitmap.Free;
// end;
end
else
ShowMessage('Stream is leeg');
finally
Stream.Free;
end;
end;
Bookmarks