Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 2 Semanas
Diego E. Diego E. is offline
Miembro
 
Registrado: Mar 2018
Posts: 12
Poder: 0
Diego E. Va por buen camino
Post TComPort, convertir python a delphi

Hola, desde hace unos días he estado intentando replicar un código hecho en Python a Delphi con el fin de conectar un monedero y billetero(Para máquinas de venta como las de refrescos) a mi sistema por medio de una Interfaz EasyMDB Universal:

https://mayavending.com/descargas/#1...-05582acf-45e0

soy nuevo con el Componente ComPort y la verdad no encuentro la forma de replicar en específico éstas líneas del código de Pyhton
Código:
checksum = 0x02+0x0c+0xff
checksum = checksum & 0x00ff
string_send = [0x02,0x05,0xff,checksum]
ser.write(string_send)
data = ser.read(27)
Intenté hacerlo de la siguiente forma:
Código:
checksum := StrToInt('$' + '02') + StrToInt('$' + '0c') + StrToInt('$' + 'ff');
checksum := checksum and StrToInt('$' + 'ff');

//Aqui empiezan mis problemas, pues el código original manda un arreglo de hexadecimales y yo una cadena de ellos
string_send := '$02' + '$0c' + '$ff' + IntToStr(checksum); 

//La razón por la que en el código anterior concateno los hexadecimales como String es por que hasta donde he podido investigar el WriteStr de Comport sólo acepta un String y no un arreglo y para el caso de Write me pide un Buffer(Void Type) y un Count(Integer)
FrmMain.ComPort1.WriteStr(string_send);

//Y peor aún, el ReadStr y Read me piden dos parámetros(Un String e Integer y un Buffer e Integer respectivamente) y además de que no se que enviar como parámetro más que el Integer, me dice que lo que regresa es un entero y yo necesito que regrese una cadena de datos específicos de longitud igual al parámetro Integer enviado
data := IntToStr(FrmMain.ComPort1.ReadStr(27));
Quizá sea demasiada ambigua mi explicación pero si alguien pudiera ayudarme se los agradecería mucho.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Range de Python pero en delphi? Javier13 Varios 4 21-11-2017 11:12:21
¿ejemplos de integracion python con delphi? JXJ Python 2 13-04-2012 04:56:32
TCOMPort no lo puedo instalar en Delphi 2010 K-ba OOP 4 16-12-2011 19:00:29
Tutorial de Python 'Python para todos' marcoszorrilla Noticias 11 15-02-2009 05:19:15
¿IDE para python como el de Delphi? JXJ Varios 2 27-04-2008 20:59:52


La franja horaria es GMT +2. Ahora son las 17:19:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi