Witam,
poszukuje programu do przekazywania danych z COM1 na port COM8.
Chodzi o to żeby program "symulował" złączenie COM1 z COM8.
PS. Nie wiem jak inaczej to sformułować.
Pozdrawiam
Witam,
poszukuje programu do przekazywania danych z COM1 na port COM8.
Chodzi o to żeby program "symulował" złączenie COM1 z COM8.
PS. Nie wiem jak inaczej to sformułować.
Pozdrawiam
a kabelek nie wystarczy :>
Nie wystarczy, jeden port jest wirtualny.
Sam napisałem program. Jest tu : [url=http://eupload.pl/files/0GWPQMYJ/ComExample.zip]link[/url]
[code]unit ComMainForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, CPort, CPortCtl;
type
TForm1 = class(TForm)
ComPort1: TComPort;
Memo: TMemo;
Button_Open1: TButton;
Panel1: TPanel;
ComLed1: TComLed;
ComLed2: TComLed;
ComLed3: TComLed;
ComLed4: TComLed;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
ComLed5: TComLed;
ComLed6: TComLed;
Label1: TLabel;
Label6: TLabel;
ComPort8: TComPort;
Button_Open8: TButton;
procedure Button_Open1Click(Sender: TObject);
procedure ComPortOpen(Sender: TObject);
procedure ComPortClose(Sender: TObject);
procedure ComPort1RxChar(Sender: TObject; Count: Integer);
procedure Button_Open8Click(Sender: TObject);
procedure ComPort8AfterClose(Sender: TObject);
procedure ComPort8AfterOpen(Sender: TObject);
procedure ComPort8RxChar(Sender: TObject; Count: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button_Open1Click(Sender: TObject);
begin
if ComPort1.Connected then ComPort1.Close
else ComPort1.Open;
end;
procedure TForm1.ComPortOpen(Sender: TObject);
begin
Button_Open1.Caption := 'Close';
end;
procedure TForm1.ComPortClose(Sender: TObject);
begin
if Button_Open1 <> nil then Button_Open1.Caption := 'Open';
end;
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort1.ReadStr(Str, Count);
ComPort8.WriteStr(Str);
end;
///////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button_Open8Click(Sender: TObject);
begin
if ComPort8.Connected then ComPort8.Close
else ComPort8.Open;
end;
procedure TForm1.ComPort8AfterClose(Sender: TObject);
begin
if Button_Open8 <> nil then Button_Open8.Caption := 'Open';
end;
procedure TForm1.ComPort8AfterOpen(Sender: TObject);
begin
Button_Open8.Caption := 'Close';
end;
procedure TForm1.ComPort8RxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort1.ReadStr(Str, Count);
ComPort8.WriteStr(Str);
end;
end.[/code]
Program pisany na szybko z użyciem ComPort/CPort
http://www.serial-port-mapper.com/serial-port-mapper-download.html płatny, ale masz dwa tygodnie na testy ;-)
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.