CH341A et bus I2C

Version imprimable

23/10/2024, 18h08
herrflick13

CH341A et bus I2C

Bonsoir,

J'ai enfin trouvé la petite carte qui me permet de communiquer de mon PC à mes périphériques I2C. Le petit logiciel que j'utilise était sur un site Internet, j'ai pu afficher 2 lignes sur mon afficheur LCD. J'ai les sources mais malheureusement pour moi, c'est du C++. Est ce que par le plus grand des hasards, il y aurait un utilisateur qui utilise cette puce pour communiquer en I2C avec un exemple simple ?

Merci pour vos réponses et votre aide
23/10/2024, 18h41
ShaiLeTroll

Pourquoi ne pas créer une DLL en C++Builder pour l'utiliser en Delphi ?
Voir même un Component dans un BPL

On peut utiliser directement du pascal en dans C++Builder, je ne crois pas la réciproque soit possible.

Ensuite, la traduction du C++ en Delphi est possible, faudra identifier l'extrait de code précis.
24/10/2024, 08h06
SergioMaster

Citation:

Envoyé par ShaiLeTroll

Ensuite, la traduction du C++ en Delphi est possible, faudra identifier l'extrait de code précis.

Outil CtoDelphi par exemple
25/10/2024, 05h12
herrflick13

ctodelphi

Bonjour,

Serait-il possible d'avoir le programme CtoDelphi compilé, le composant pose problème lors de la compilation.

Merci
25/10/2024, 08h03
SergioMaster

Le lien que j'ai donné pointe sur plusieurs versions, le dossier le premier de la liste contient non seulement les sources mais aussi un zip ((c2delphi-0.9.2.zip) contenant l'exécutable et des dossiers.
Décompressez ce zip vers un dossier sur le disque (mon habitude : le faire en dehors de "program files")

Si cette puce est pilotée par la lib CH341DLL.DLL il suffirait de traduire les quelques cinq ou six fonctions les plus utiles pour établir une communication I2C.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
HANDLE	WINAPI	CH341OpenDevice(  // Open the CH341 device, return the handle, if an error occurs, it will be invalid
	ULONG			iIndex );  // Specify the device serial number of CH341, 0 corresponds to the first device
 
 
VOID	WINAPI	CH341CloseDevice(  // Close the CH341 device
	ULONG			iIndex );  // Specify the serial number of the CH341 device
 
BOOL	WINAPI	CH341SetStream(  // Set the serial port flow mode
	ULONG			iIndex,  // Specify the CH341 device number
	ULONG			iMode );  // To specify the mode, see Downlink
// Bit 1-bit 0: I2C interface speed /SCL frequency, 00= low speed /20KHz,01= standard /100KHz(default),10= fast /400KHz,11= high speed /750KHz
// Bit 2: SPI I/O number /IO pins, 0= single in/single out (D3 clock /D5 out /D7 in)(default),1= double in/double out (D3 clock /D5 out D4 out /D7 in D6 in)
// Bit 7: Bit order in SPI bytes, 0= low first, 1= high first
// All other reservations must be 0
 
BOOL	WINAPI	CH341ReadI2C(  // Read one byte of data from the I2C interface
	ULONG			iIndex,  // Specify the serial number of the CH341 device
	UCHAR			iDevice,  // The lower 7 bits specify the I2C device address
	UCHAR			iAddr,  // Address of specified data unit
	PUCHAR			oByte );  // Address of specified data unit
 
 
BOOL	WINAPI	CH341WriteI2C(  // Write a byte of data to the I2C interface
	ULONG			iIndex,  // Specify the serial number of the CH341 device
	UCHAR			iDevice,  // The lower 7 bits specify the I2C device address
	UCHAR			iAddr,  // Address of specified data unit
	UCHAR			iByte );  // Byte data to be written
 
 
BOOL	WINAPI	CH341StreamI2C(  // Process I2C data stream, 2-wire interface, clock line for SCL pin, data line for SDA pin (quasi-bidirectional I/O), speed of about 56K bytes
	ULONG			iIndex,  // Specify the CH341 device number
	ULONG			iWriteLength,  // Number of bytes of data to write out
	PVOID			iWriteBuffer,  // Points to a buffer to place data to be written, usually with the I2C device address and read/write direction bits as the first byte
	ULONG			iReadLength,  // Number of bytes of data to be read
	PVOID			oReadBuffer );  // Points to a buffer and returns the data read in

equivalent en Delphi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function CH341OpenDevice(iIndex: ULONG): THandle; stdcall; external 'CH341DLL.DLL';
 
procedure CH341CloseDevice(iIndex: ULONG); stdcall; external 'CH341DLL.DLL';
 
function CH341SetStream(iIndex: ULONG; iMode: ULONG): BOOL; stdcall; external 'CH341DLL.DLL';
 
function CH341ReadI2C(iIndex: ULONG; iDevice: UCHAR; iAddr: UCHAR;var oByte: UCHAR): BOOL; stdcall; external 'CH341DLL.DLL';
 
function CH341WriteI2C(iIndex: ULONG; iDevice: UCHAR; iAddr: UCHAR; iByte: UCHAR): BOOL; stdcall; external 'CH341DLL.DLL';
 
function CH341StreamI2C(iIndex: ULONG; 
			iWriteLength: ULONG; 
			iWriteBuffer: PVOID; 
			iReadLength: ULONG; 
			oReadBuffer: PVOID): BOOL; stdcall; external 'CH341DLL.DLL';

31/10/2024, 00h50
herrflick13

merci

Vraiment je te remercie pour ton aide, c'est vraiment super sympa pour le code en Delphi. Pardonne moi d'abuser de ta gentillesse mais aurais tu la commande pour définir la vitesse du bus ? Je crois avoir lu qu'il y en avait 4.

Encore merci beaucoup.
31/10/2024, 14h48
tourlourou

Bonjour,
Le protocole de transmission se définit dans la fonction CH341SetStream, dont le paramètre iMode regroupe plusieurs réglages : regarde la signification de ses différents octets dans le code C++ du post de rMist2024.
31/10/2024, 17h49
Invité

En effet le paramètre iMode de CH341SetStream peut avoir quatre valeurs de 0 à 3 pour les vitesses de transmission supportées par CH341 a savoir(20khz, 100khz, 400khz, 750khz) si aucune configuration n'a été fait le bus fonctionne avec la deuxième vitesse 100khz qui est choisie par défaut.

Citation:

00= low speed /20KHz
01= standard /100KHz(default)
10= fast /400KHz
11= high speed /750KHz

CH341OpenDevice(0); // ouvrir une connexion
CH341SetStream(0, 0); // la vitesse 20khz sélectionnée

code de travail..

CH341CloseDevice(0);