I²C Bus an der RS232 mit Delphi
Hi,
ich bin in Delphi noch ziemlicher Anfänger, möchte jetzt aber den I²C Bus ansprechen, dazu habe ich hier
eine Internetseite zu dem Thema gefunden, nun wollte ich das ganze mal testen, aber irgendwie funktioniert das ganze nicht so wie ich das gerne will.
Hier mal meine Schaltung.
Und hier das Programm dazu:
Code:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit4, Unit5, StdCtrls;
type
TForm3 = class(TForm)
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
PCF8574Start('COM1: string');
PCF8574Out(144, 9)
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
OPENCOM('COM1,1200,N,8,1');
I2CStart;
PCF8574Out(144, 9);
I2CStop;
end;
end.
Ich habe zwei Versionen ausprobiert, leider hat keine von beiden funktioniert.
Die Units von der Homepage habe ich beide eingebunden(Unit4 und Unit5) und die DLL's in den System32 Ordner meines Windows geladen.
Desweiteren tritt bei mir das Problem auf, das die Leds am PCF von Anfang an alle leuchten.
Hat evtl. jemand einen Tipp für mich, woran es liegt, das es nicht funktioniert.
Danke und Gruß
Chris
