Problem mit Scannen über delphitwain

[Natcree]

Hallo ich möchte mit diesem Code ein Bild einscannen und in eine Datenbank ablegen

Delphi-Quellcode:

procedure TForm1.DelphiTwain1TwainAcquire(Sender: TObject;
  const Index: Integer; Image: TBitmap; var Cancel: Boolean);
begin
  clientdataset1.FieldByName('personalausweishinten').Assign(image);
  Cancel := TRUE;  {Only want one image}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SelectedSource: Integer;
begin
  {It is always recommended to load library dynamically, never forcing}
  {final user to have twain installed}
  if delphiTwain1.LoadLibrary then
  begin

    {Load source manager}
    delphiTwain1.SourceManagerLoaded := TRUE;
    {Allow user to select source}
    SelectedSource := delphiTwain1.SelectSource;
    if SelectedSource <> -1 then
    begin
      {Load source, select transference method and enable (display interface)}
      delphiTwain1.Source[SelectedSource].Loaded := TRUE;
      delphiTwain1.Source[SelectedSource].TransferMode := ttmMemory;
      delphiTwain1.Source[SelectedSource].Enabled := TRUE;
    end {if SelectedSource <> -1}

  end
  else
    showmessage('Twain is not installed.');
end;

Er scannt nur das dbimage1 bleibt leer. woran kann das liegen

[Guido R.]

Beim Speichern von Bildern in eine DB empfiehlt sich die Verwendung eines Streams (Memorystream).
Außerdem solltest Du Dir überlegen, ob das Bild im Bitmap-Format oder doch lieber z.B. im JPG-Format in die DB gespeichert werden soll.

Gruß
Guido R.

[Natcree]

er liest es nicht einmal in ein einfaches Timage

Hier mal der code dazu

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SelectedSource: Integer;
begin
  {It is always recommended to load library dynamically, never forcing}
  {final user to have twain installed}
  if delphiTwain1.LoadLibrary then
  begin

    {Load source manager}
    delphiTwain1.SourceManagerLoaded := TRUE;
    {Allow user to select source}
    SelectedSource := delphiTwain1.SelectSource;
    if SelectedSource <> -1 then
    begin
      {Load source, select transference method and enable (display interface)}
      delphiTwain1.Source[SelectedSource].Loaded := TRUE;
      delphiTwain1.Source[SelectedSource].TransferMode := ttmMemory;
      delphiTwain1.Source[SelectedSource].Enabled := TRUE;
    end {if SelectedSource <> -1}

  end
  else
    showmessage('Twain is not installed.');
end;

procedure TForm1.DelphiTwain1TwainAcquire(Sender: TObject;
  const Index: Integer; Image: TBitmap; var Cancel: Boolean);
begin
  Image1.Picture.Assign(image);
  Cancel := TRUE;  {Only want one image}
end;

wo ist der fehler ? er scannt und will auch die datei einladen aber die image compo bleibt leer

[Dejan Vu]

Speicher das image doch mal auf die Platte und lies es mit einem Paint-Programm ein...

[Natcree]

wie mache ich das

[DeddyH]

Der Parameter Image ist doch vom Typ TBitmap, welches eine SaveToFile-Methode besitzt.

[himitsu]

So Image1.Picture.Bitmap.Assign(image); geht es auch nicht?

[Natcree]

Zitat:

Image1.Picture.Bitmap.Assign(image); geht es auch nicht?

nein den will er auch nicht?

[Jens01]

Das DelphiTwain von hier auch probiert?

[Natcree]

danke jens01 daran hats gelegen