Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#11

Re: Bider in DB speicher und auslesen

  Alt 23. Feb 2010, 09:01
du fragst vielleicht sachen

ne des isn fehler ^^ bitmap muss bei jpeg raus, also so:

Delphi-Quellcode:
  //JPG
  If UpperCase(imagedata.FieldByName('fileext').AsString) = 'JPGThen
  Begin
    Stream := TStream.Create;
    Stream := imagedata.CreateBlobStream(imagedata.FieldByName('filedata'), bmRead);
    Stream.Position := 0;
    JPEG := TJpegImage.Create;
    JPEG.LoadFromStream(Stream);
    image.Picture.Bitmap.Assign(JPEG);
    Stream.Free;
    JPEG.Free;
  End;
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat