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

Delphi-Quellcode:

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
;)

[Natcree]

So nun mehr habe ich ein neues Problem.

Das Scannen klappt und er speichert es auch in eine Datenbank ab siehe Code.

Delphi-Quellcode:

procedure TForm1.TwainTwainAcquire(Sender: TObject; const Index: Integer;
  Image: TBitmap; var Cancel: Boolean);
begin
  clientdataset1.Fieldbyname('Bild').Assign(Image);
  Cancel := True;//Only want one image
end;

procedure TForm1.DoDestroy;
begin
  Twain.Free;//Don't forget to free Twain!

  //inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
clientdataset1.Insert;
  //Create Twain
  if Twain = nil then begin
    Twain := TDelphiTwain.Create;
    Twain.OnTwainAcquire := TwainTwainAcquire;
  end;

  //Load Twain Library dynamically
  if Twain.LoadLibrary then
  begin
    //Load source manager
    Twain.SourceManagerLoaded := TRUE;

    //Allow user to select source -> only the first time
    if not Assigned(Twain.SelectedSource) then
      Twain.SelectSource;

    if Assigned(Twain.SelectedSource) then begin
      //Load source, select transference method and enable (display interface)}
      Twain.SelectedSource.Loaded := TRUE;
      Twain.SelectedSource.ShowUI := TRUE;//display interface
      Twain.SelectedSource.Enabled := True;
    end;

  end else begin
    ShowMessage('Twain is not installed.');
  end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
clientdataset1.Post;
end;

Jedoch wenn ich mein Programm beende meldet er folgendes siehe Bild.

[himitsu]

Und wo tritt nun der Fehler auf?
Der Debugger ist ein cooles Ding und das sollte man benutzten.

Delphi-Quellcode:

procedure TForm1.DoDestroy;
begin
  Twain.Free;//Don't forget to free Twain!

  //inherited;  <<<<<< WIESO?
end;

[Natcree]

das inherited habe ich wieder aktiviert aber die meldung kommt immer noch

[Natcree]

beim schließen des Programms

[DeddyH]

Und wo genau beim Schließen des Programms (Zeile)?

[Natcree]

er gibt mir keine zeile nur das siehe Bild

[himitsu]

Ich bin mir sehr sicher, daß D7 auch schon einen Stacktrace kannte.

Und dann kann man immernoch einen Haltepunkt in das DoDestroy legen und durchsteppen.

[DeddyH]

http://www.delphipraxis.net/41047-tu...ortgeschr.html

[Natcree]

ich glaub ich habe den Fehler

wenn ich einen breakpoint bei

Delphi-Quellcode:

procedure TForm1.DoDestroy;
begin
  Twain.Free;//Don't forget to free Twain!// Hier breakpoint setze
  inherited;
end;

dann beendet er kann es sein das er beim programm schließen twain noch mal freigeben will?

[DeddyH]

Kommentier die Zeile doch einfach mal aus, dann merkst Du es.

[edit] Oder einfach so versuchen:

Delphi-Quellcode:

procedure TForm1.DoDestroy;
begin
  FreeAndNil(Twain);//Don't forget to free Twain!// Hier breakpoint setze
  inherited;
end;

Wann wird die Methode denn eigentlich aufgerufen? Im FormDestroy, oder evtl. auch woanders? [/edit]

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1282086)

Wann wird die Methode denn eigentlich aufgerufen?

Vom Namen her ist es das überschriebene TObject.DoDestroy (da drin, im Inherited, wird dann OnDestroy aufgerufen und die Instanz freigegeben)

Wenn nicht, dann schäm dich.

[Dejan Vu]

Bei Twain muss man aufpassen, die DLL ist ziemlich blöd, und wenn der Wrapper die stringete 'schließen/beenden/deaktivieren' (oder wie war die Reihenfolge) nicht implizit (und freundlicherweise) im eigenen Destroy implementiert hat, muss man das selbst machen.

Mach also alle 'öffnen/aktivieren/enablen/' Aktionen in umgekehrter Reihenfolge wieder rückgängig.
Im schlimmsten Fall verbessert sich die Lage nicht (aber es sieht wenigstens sauberer aus).
Mit ein wenig Glück funktioniert es dann aber.

PS: Das mit dem Debuggen ist so eine Sache (außer für Fortgeschrittene natürlich), wenn der Fehler -wie unschwer zu erkennen- außerhalb der VCL bzw. des schönen Exceptionhandlings auftritt. Ich jedenfalls bin nicht in der Lage, eine Fremd-DLL so einfach zu debuggen.

[himitsu]

Im Zweifelsfall sucht man eben nicht den Fehler in der (Fremd)Komponente, sondern sucht nach dem letzten eigenem Code und schaut dort, ob man was falsch gemacht hat, bzw. wendet sich dann an den jeweiligen Support "wenn ich das aufrufe, dann ..." .

[Dejan Vu]

Support ist bei Frickelkomponenten von Torry etc. so eine Sache (Falls das Twain-Teil so eine DLL ist).