Access+delphi+afbeeldingen

[Verwijderd]

Klein vraagje:

K heb een accessdatabase (2000), hier wil ik een afbeelding/link naar afbeelding in opslaan. Nu heb ik dat via OLE-gedaan. Da werkt, mar nog nie zoals ik het wil.

Ik ben dus met delphi 5 een programmaatje in elkaar aan het frutte da de gegevens uit die accessdatabase ophaalt en ze afbeeld. Dit stuk lukt bijna. Het probleem is dat de afbeelding niet wordt afgebeeld.

K had eerst een DBimage opgenomen in mn programma, mar da werkte nie. Nu d8 k slim te zijn en een OLE-box te gebruiken, mar die kan ik nie connecten aan een datasource enz.

Iemand n ideetje?

[Verwijderd]

Weet niemand dit?

[Nibble]

ik heb er nog niet genoeg mee gewerkt, anders zou ik je kunnen helpen.
Kijk eens op wat speciale delphi fora: http://www.delphi3000.com, of anders, misschien is er al een component voor www.torry.net

Ik zou je graag helpen, maar nogmaals, geen ervaring mee tot nu toe.

[Elissen]

Kijk effe in de help bij CreateBLOBStream. Ik weet het zo niet uit m'n hoofd, maar als je er niet uit komt kan je me wel mailen. Dan zoek ik het nl. wel even op op m'n werk.

[whoami]

Op vrijdag 18 januari 2002 16:25 schreef Destruction_Dimbo het volgende:

Het probleem is dat de afbeelding niet wordt afgebeeld.

Krijg je een foutmelding? Zoja, welke?

[FendtVario]

Kijk eens in de directory Delphi5\Demo\DB, daar in staat een voorbeeldje over een vis-db, daarin zijn ook plaatjes opgeslagen, denk alleen niet dat het access is maar het idee is hetzelfde

[Verwijderd]

Welke foutmelding gaf hij bij gebruik met TDBImage?

Lukt dit? [Dit is alleen voor *.bmp]

code:

var
  BlbStr: TBlobStream;
  Btmp: TBitmap;
begin
  BlbStr := TBlobStream.Create([insert TBlobField, bv met
    MyTable.FieldByName('MyColumn')], bmRead);
  try
    Btmp := TBitmap.Create;
    try
    Btmp.LoadFromStream(BlbStr);
    [insert TImage].Picture.Graphic := Btmp;
    finally
    Btmp.Free;
    end;
  finally
    BlbStr.Free
  end;
end;

Wat voor plaatjes heb je? jpeg, gif?

[whoami]

Op zondag 20 januari 2002 23:46 schreef FendtVario het volgende:
Kijk eens in de directory Delphi5\Demo\DB, daar in staat een voorbeeldje over een vis-db, daarin zijn ook plaatjes opgeslagen, denk alleen niet dat het access is maar het idee is hetzelfde

Idd, dat is met een Paradox db, maar het idee is idd hetzelfde.

[Verwijderd]

Ik heb t al met n DBimage geprobeerd. K kreeg alleen een foutmelding dat het een ongeldige bitmap was.

De plaatjes zijn nl. .jpg en .gif.

Ik zal ns na de voorbeelddatabase kijken.

Is het anders misschien verstandiger om een paradox 7 database aan te maken en te werken met blob-velden ipv OLE?

[whoami]

Op maandag 21 januari 2002 16:18 schreef Destruction_Dimbo het volgende:
Ik heb t al met n DBimage geprobeerd. K kreeg alleen een foutmelding dat het een ongeldige bitmap was.

Ik heb het eens getest vandaag met .bmp en ik kreeg dezelfde fout.
Misschien dat ik vanavond nog eens verder zoek.

[Verwijderd]

Kijk ook effe hier.

Dit is waarschijnlijk het probleem:

MS Access stores the path of a linked OLE object as part of the object's definition in the OLE object field. Because the definition of OLE object storage is not documented (!? this is straight from MS) there is no way to know what gets written before the actual image data.

[Verwijderd]

Oke het is mij gelukt, wel in Access97, zal morgen effe in Access2000 testen:

Ik heb het component TGifImage van Anders Melander gebruikt, kun je hier vandaan halen.

code:

unit main;

interface

uses
  Classes, Controls, Forms, StdCtrls, Db, Grids, DBTables, DBGrids, ExtCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Image1: TImage;
    Button1: TButton;
    Table1: TTable;
    { Ik gebruik een tabel van de vorm:

    ID | Naam | Plaatje
   
    Fields heb ik maar voor het gemak toegevoegd
    }
    Table1ID: TAutoIncField;
    Table1Naam: TStringField;
    Table1Plaatje: TBlobField;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  Graphics,
  JPEG,    // JPEG Unit die bij Delphi zit
  GifImage;     // GifImage van Anders Melander

{$R *.DFM}

type
  TPicType = (ptGif, ptJPEG);

{ Een plaatje heeft een bepaalde header:

  Bij gif plaatjes : GIF89a = $47, $49, $46, $38, $39, $61
  Bij JPEG plaatjes:      = $FF, $D8, $FF

  Deze header staat dus bij deze streams niet vooraan
  omdat microsoft er nog iets voor zet [OLE-pakket, naam
  bestand, lokatie etc]

  We moeten de cursor dus positioneren op $47 of $FF

  BTW: Het kan natuurlijk voorkomen dat in een gif plaatje eerst een JPEG header
     komt of andersom, of dat in een niet gif/JPEG plaatje toch een gif/JPEG
     header voorkomt... [Oplossing?]
}

function PositionBlob(ABlobStream: TBlobStream; var PicType: TPicType): Boolean;
var
  B: Byte;
  Status: Integer;

  procedure Iff(const EqualValue, Exp1, Exp2: Integer);
  begin
    if Status = EqualValue then
    Status := Exp1
    else
    Status := Exp2;
  end;
begin
  Result := False;
  Status := 0;
  { Status = 0: Nog nixs gevonden
         = 1: $47 gevonden
         = 2: $47, $49 gevonden
         = 3: $47, $49, $46 gevonden
         = 4: $47, $49, $46, $38 gevonden
         = 5: $47, $49, $46, $38, $39 gevonden
         = 6: $47, $49, $46, $38, $39, $61 gevonden, GIF!
         = 7: $FF gevonden
         = 8: $FF, $D8 gevonden
         = 9: $FF, $D8, $FF gevonden, JPEG!
  }

  { ABlobStream.Read(B, 1) is behoorlijk inefficient, sneller zou zijn om een
    hele hap in te lezen, maar daar had ik niet zo'n zin in :) }
  while (Status <> 9) and (Status <> 6) and (ABlobStream.Read(B, 1) = 1) do
    case B of
    $38:
      Iff(3, 4, 0);
    $39:
      Iff(4, 5, 0);
    $46:
      Iff(2, 3, 0);
    $47:
      Status := 1;
    $49:
      Iff(1, 2, 0);
    $61:
      Iff(5, 6, 0);
    $D8:
      Iff(7, 8, 0);
    $FF:
      Iff(8, 9, 7);
    else
    Status := 0;
    end;
  case Status of
    6:
    begin
      { Gif gevonden, cursor op de 'G' zetten }
      ABlobStream.Position := ABlobStream.Position - 6;
      PicType := ptGif;
      Result := True;
    end;
    9:
    begin
      { JPEG gevonden, cursor op de eerste $FF zetten }
      ABlobStream.Position := ABlobStream.Position - 3;
      PicType := ptJPEG;
      Result := True;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  BlobStream: TBlobStream;
  Pic: TGraphic;
  PicType: TPicType;
begin
  BlobStream := TBlobStream.Create(Table1Plaatje, bmRead);
  try
    if not PositionBlob(BlobStream, PicType) then Exit;

    case PicType of
    ptJPEG:
      Pic := TJPEGImage.Create;
    ptGif:
      Pic := TGIFImage.Create;
    else
    Exit;
    end;
    try
    Pic.LoadFromStream(BlobStream);
    Image1.Picture.Graphic := Pic;
    finally
    Pic.Free;
    end;
  finally
    BlobStream.Free
  end;
end;

end.

Dat was die

[Verwijderd]

Bedankt ik zal het eens proberen!!!