Przekazywania danych z COM1 na port COM8.

0

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

0

a kabelek nie wystarczy :>

0

Nie wystarczy, jeden port jest wirtualny.

0

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

0

http://www.serial-port-mapper.com/serial-port-mapper-download.html płatny, ale masz dwa tygodnie na testy ;-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1