Forum: Programmieren allgemein
by Natcree,
3. Dez 2014
ich glaub ich habe den Fehler
wenn ich einen breakpoint bei
procedure TForm1.DoDestroy;
begin
Twain.Free;//Don't forget to free Twain!// Hier breakpoint setze
inherited;
end;
Forum: Programmieren allgemein
by Natcree,
3. Dez 2014
er gibt mir keine zeile nur das siehe Bild
Forum: Programmieren allgemein
by Natcree,
3. Dez 2014
beim schließen des Programms
Forum: Programmieren allgemein
by Natcree,
3. Dez 2014
das inherited habe ich wieder aktiviert aber die meldung kommt immer noch
Forum: Programmieren allgemein
by Natcree,
3. Dez 2014
So nun mehr habe ich ein neues Problem.
Das Scannen klappt und er speichert es auch in eine Datenbank ab siehe Code.
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;
Forum: Programmieren allgemein
by Natcree,
27. Okt 2014
danke jens01 daran hats gelegen
;)
Forum: Programmieren allgemein
by Natcree,
27. Okt 2014
nein den will er auch nicht?
Forum: Programmieren allgemein
by Natcree,
27. Okt 2014
er liest es nicht einmal in ein einfaches Timage
Hier mal der code dazu
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}
Forum: Programmieren allgemein
by Natcree,
27. Okt 2014
Hallo ich möchte mit diesem Code ein Bild einscannen und in eine Datenbank ablegen
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);