Saludos estimados foristas
Estoy utilizando el comando readfile para leer el contenido de una informacion a traves del puerto com, el codigo de lectura es el siguiente.
Código:
Function Leer_Puerto_Serie (ai_cantidad:Integer):String;
Var
lb_read:Boolean;
ls_cadena:String;
li_leido:dWord;
Begin
//read_msg = Space(amount_to_read+1)
lb_read:=ReadFile(serial_handle, ls_cadena, ai_cantidad,li_leido,nil);
If not lb_read Then
ShowMessage('Error Read Puerto Serie');
IF li_leido = 0 THEN
Showmessage('No Hay Dato en el Puerto Serie');
Result:=ls_cadena;
end;
al momento que deseo capturar el resultado me sale un error en tiempo de ejecucion Access Violation at addres.
alguien podria indicarme si hay un error en el codigo, muchas gracias.
este codigo lo copie de un post
anterior