I²C Ansteuerung über USB Schnittstelle

[himitsu]

Versuch mal dieses:

Delphi-Quellcode:

var
  H: THandle;
  L: LongWord;

begin
  H := CreateFile('COM2', GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
  if H = INVALID_HANDLE_VALUE then
    ShowMessage(SysErrorMessage(GetLastError));
  if not WriteFile(H, #85#208#1#1#0, 5, L, nil) then
    ShowMessage(SysErrorMessage(GetLastError));
  CloseHandle(H);

0x ist in C/C++ die Kennung für einen hexadezimalen Wert,
also das was das $ in Delphi ist.