buenas tardes foristas, estoy utilizando el componente twain en delphi 2007 y windows xp, el sistema me funcionaba de maravilla, le cambie los driver de la camara y se volvio loco, (tomo fotografias con una web cam desde el componente twain, la convierto en jpg y la guardo) pero al tomar la fotografia sale el siguiente error:
"access violation at address 01D62FB2 in module 'TwainUI.dll'. Read of address 0151F000."
anteriormente lo habia solucionado cambiando los driver de la camara de vista a xp, pero ahora eso ya no sirvio.
el codigo es el siguiente.
en el boton para llamar el software de la camara:
Código Delphi
[-]DelphiTwain1.LibraryLoaded := TRUE;
DelphiTwain1.SourceManagerLoaded := TRUE;
if DelphiTwain1.LibraryLoaded = FALSE then Exit;
if DelphiTwain1.SourceCount = 0 then exit;
DelphiTwain1.Source[0].TransferMode := ttmMemory;
DelphiTwain1.Source[0].Loaded := TRUE;
DelphiTwain1.Source[0].Enabled := TRUE;
y en el evento Twain1TwainAcquire:
Código Delphi
[-]
procedure TForm4.DelphiTwain1TwainAcquire(Sender: TObject;
const Index: Integer; Image: TBitmap; var Cancel: Boolean);
begin
Image1.Picture.Assign(Image);
Cancel := TRUE;
mybmp:=TBitmap.Create;
with mybmp do
try
Assign(Image1.Picture);
myjpeg:=TJPEGImage.Create;
with myjpeg do begin
Assign(mybmp);
SaveToFile('X:\Picture\prueba.jpg');
free;
end;
finally
Free;
end;
Image1.Picture.LoadFromFile('X:\Picture\prueba.jpg');
end;
GRACIAS