Menejo del escaner desde Delphi 5

[dannismile]

Hola:
Tengo una pregunta, como le hago para manejar el escaner desde delphi??? lo que pasa es que estoy realizando un programa y necesito tomar una imagen desde el escaner y devolver la imagen al programa para manipularla...
pero para ello debo mandar llamar al escaner, tomar la imagen escaneada y devolverla a programa...
existe alguna funcion, metodo, o libreria de la que me pueda ayudar???

Si tienen alguna información les agradeceria me la hicieran llegar gracias!!!!

[baklao]

Hola que tal,

mmmmmmmmmmmmmmmm

utiliza esta funcion:

Código:

function WinExecAndWait32(FileName:String; Visibility:integer):integer;
var 
  zAppName:array[0..512] of char;
  zCurDir:array[0..255] of char;
  WorkDir:String;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
  Resultado,exitCode: DWord;
begin 
  StrPCopy(zAppName,FileName);
  GetDir(0,WorkDir);
  StrPCopy(zCurDir,WorkDir);
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);
 
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  CreateProcess(nil,
    zAppName,                      { pointer to command line string }
    nil,                           { pointer to process security attributes}
    nil,                           { pointer to thread security attributes}
    false,                         { handle inheritance flag }
    CREATE_NEW_CONSOLE or          { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil,                           { pointer to new environment block }
    nil,                           { pointer to current directory name }
    StartupInfo,                   { pointer to STARTUPINFO }
    ProcessInfo);
 
  {Espera a que termine la ejecucion}
  {Wait until execution finish}
  repeat 
    exitCode := WaitForSingleObject( ProcessInfo.hProcess,1000);
    Application.ProcessMessages;
  until (exitCode <> WAIT_TIMEOUT);
  GetExitCodeProcess(ProcessInfo.hProcess,Resultado);
  MessageBeep(0);
  CloseHandle(ProcessInfo.hProcess );
  Result:=Resultado;
end;

esta funcion te permite que nuestra aplicacion Delphi espere hasta que la aplicación llamada haya terminado.

Suerte y Salu2.

Bye

[lbarrueco]

Hola....

Mira yo hice algo asi.. pero las librerias que usaba ya tenian para hacerlo... pero existe una libreria que esta en la direccion: http://delphitwain.sourceforge.net que te puede servir para eso...

Saludos..

Luis

[Kaopectate]

Hola Dannismile, Baklao y Ibarrueco.

Yo tengo una aplicación funcionando con el DelphiTwain y va de maravilla.

Creo que es una buena alternativa.

Saludos.