Ver Mensaje Individual
  #1  
Antiguo 09-09-2011
Avatar de CarlosHernandez
CarlosHernandez CarlosHernandez is offline
Miembro
 
Registrado: oct 2003
Posts: 139
Reputación: 21
CarlosHernandez Va por buen camino
componente twain

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 there is no sources, also exit
  if DelphiTwain1.SourceCount = 0 then exit;


  //Acquire from the first source
  
  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);
  //We only want the first 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
__________________
begin
Elverdugo79@hotmail.com
end;
Responder Con Cita