Re: Problem z utrzymaniem połączenia poprzez comport

2018-04-09T14:49:45+01:00

Nie mam tego tak ustawionego, więc robię test i za 10 minut powiem jaki efekt

-- 15 minutach --

Chyba teraz jest wszystko ok, dzięki za pomoc

Statystyki: Napisane przez Bumcfksz — 9 kwi 2018, o 14:49

Re: Problem z utrzymaniem połączenia poprzez comport

2018-04-09T14:37:50+01:00

A może trzeba w DataPacet w ustawieniach w Time Out ustawić na "0"Tak w jednym z filmików Mirek mówił.

Statystyki: Napisane przez ELEKTRON105 — 9 kwi 2018, o 14:37

Re: Problem z utrzymaniem połączenia poprzez comport

2018-04-09T14:36:33+01:00

Używam TApdComPort

A poniżej załączam cały kod.

[syntax=delphi]unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ShellApi, AdPacket,
OoMisc, AdPort, AdWnPort, StrUtils, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
Uruchom_Audacity: TButton;
Zamknij_Audacity: TButton;
Aktywuj_Audacity: TButton;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
cPort: TApdComPort;
ApdDataPacket1: TApdDataPacket;
Połącz: TButton;
Edit1: TEdit;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Timer1: TTimer;
Edit3: TEdit;
procedure Uruchom_AudacityClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Zamknij_AudacityClick(Sender: TObject);
procedure Aktywuj_AudacityClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ApdDataPacket1StringPacket(Sender: TObject; Data: AnsiString);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure PołączClick(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit2Exit(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Audacityopenadr : string;
Audacitycloseadr : string;
Audacityshowadr : string;
Audacitynagrywajadr : string;
Audacitystopadr : string;
Audacityzapisadr : string;
Audacitykasujadr : string;
Odsluchadr : string;
Zamknijmpadr :string;
Nowenagranieadr :string;
Archiwumadr : string;
Zmiennakontrolna :integer;
Zmiennapomocnicza :integer;
Title : string;

implementation

{$R *.dfm}

procedure TForm1.Uruchom_AudacityClick(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(Audacityopenadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Zamknij_AudacityClick(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(Audacitycloseadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Aktywuj_AudacityClick(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(Audacityshowadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.ApdDataPacket1StringPacket(Sender: TObject; Data: AnsiString);
var
buf: string;
begin
buf := Trim(Data);
if(buf='1')then
begin
ShellExecute(handle,'open',PChar(Audacityopenadr), '','',SW_MAXIMIZE);
cPort.PutString('Uruchamianie Audacity' +#13#10);
end;
if(buf='2')then
begin
ShellExecute(handle,'open',PChar(Audacityshowadr), '','',SW_MAXIMIZE);
cPort.PutString('Aktywacja Audacity'+ #13#10);
end;
if(buf='3')then
begin
ShellExecute(handle,'open',PChar(Audacitycloseadr), '','',SW_MAXIMIZE);
cPort.PutString('Zamykanie Audacity'+ #13#10);
end;
if(buf='4')then
begin
ShellExecute(handle,'open',PChar(Audacitynagrywajadr), '','',SW_MAXIMIZE);
cPort.PutString('Nagrywanie rozpoczete'+ #13#10);
end;
if(buf='5')then
begin
ShellExecute(handle,'open',PChar(Audacitystopadr), '','',SW_MAXIMIZE);
cPort.PutString('STOP' +#13#10);
end;
if(buf='6')then
begin
RenameFile(Nowenagranieadr, Archiwumadr+FormatDateTime('HH-MM-SS', Time)+' '+Title+'.wav');
ShellExecute(handle,'open',PChar(Audacityzapisadr), '','',SW_MAXIMIZE);
cPort.PutString('Zapis nagrania '+#13#10);
end;
if(buf='7')then
begin
ShellExecute(handle,'open',PChar(Audacitykasujadr), '','',SW_MAXIMIZE);
cPort.PutString('Kasowanie nagrania' +#13#10);
end;
if(buf='8')then
begin
ShellExecute(handle,'open',PChar(Odsluchadr), '','',SW_MAXIMIZE);
cPort.PutString('Odsluch nagrania' +#13#10);
end;
if(buf='9')then
begin
ShellExecute(handle,'open',PChar(Zamknijmpadr), '','',SW_MAXIMIZE);
cPort.PutString('Koniec odsluchu' +#13#10);
end;
val(leftstr(buf,1),Zmiennapomocnicza,Zmiennakontrolna);
if(Zmiennakontrolna<>0) then
begin
RenameFile(Nowenagranieadr, Archiwumadr+FormatDateTime('HH-MM-SS', Time)+' '+Title+'.wav');
Edit1.text := buf;
Title := buf;
cPort.PutString('Nowa nazwa: ' + buf + #13#10);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(Audacitynagrywajadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(Audacitystopadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RenameFile(Nowenagranieadr, Archiwumadr+FormatDateTime('HH-MM-SS', Time)+' '+Title+'.wav');
ShellExecute(handle,'open',PChar(Audacityzapisadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(Audacitykasujadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(Odsluchadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
ShellExecute(handle,'open',PChar(zamknijmpadr), '','',SW_MAXIMIZE);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
RenameFile(Nowenagranieadr, Archiwumadr+FormatDateTime('HH-MM-SS', Time)+' '+Title+'.wav');
Title := Edit1.text;
cPort.PutString('Nowa nazwa: ' + Title + #13#10);
end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
cPort.ComNumber := strtoint(Edit2.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
TF : TextFile;
S : String;
numersciezki :integer;
begin
Numersciezki := 0;
Edit1.text := 'Beznazwy';
Title := 'Beznazwy';
AssignFile(TF, 'C:\sciezki.txt');
try
Reset(TF);
while not Eof(TF) do
begin
Readln(TF, S);
numersciezki := numersciezki + 1;
case numersciezki of
1: Audacityopenadr := S;
2: Audacitycloseadr :=S;
3: Audacityshowadr := S;
4: Audacitynagrywajadr := S;
5: Audacitystopadr := S;
6: Audacityzapisadr := S;
7: Audacitykasujadr :=S;
8: Odsluchadr := S;
9: Zamknijmpadr := S;
10: Nowenagranieadr :=S;
11: Archiwumadr := S;
end;
end;
finally
CloseFile(TF);
end;
end;

procedure TForm1.PołączClick(Sender: TObject);
begin
if(cPort.Open = True ) then begin
cPort.Open := False;
end;
if(cPort.Open = false ) then begin
cPort.Open := True;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if(cPort.Open = True ) then begin
Edit3.Color := clLime;
cPort.PutString(#0);
end;
if(cPort.Open = false ) then begin
Edit3.Color := clRed;
end;
end;

end.[/syntax]

Statystyki: Napisane przez Bumcfksz — 9 kwi 2018, o 14:36

Re: Problem z utrzymaniem połączenia poprzez comport

2018-04-09T14:27:02+01:00

Quote:

Ktoś wie co może być przyczyną braku reakcji po dłuższym czasie ?

Myślę że wiedzieć to może po tak zadanym pytaniu tylko dobra rasowa wróżka albo co najmniej zawodowy jasnowidz 6-tej kategorii

jeśli zaś podasz chociaż jakieś MINIMUM informacji np - jakiego komponentu w delphi używasz to wtedy będzie można być może coś podpowiedzieć

Statystyki: Napisane przez mirekk36 — 9 kwi 2018, o 14:27

Problem z utrzymaniem połączenia poprzez comport

2018-04-09T13:45:49+01:00

Napisałem aplikację w delphi która na podstawie komend dostawanych przez comport ( połączenie bluetooth) powoduje wykonanie pewnych akcji w komputerze.
Program działa do momentu gdy komendy wydawane są często, w chwili gdy jest przerwa np 5 minut, aplikacja nie reaguje na dane dochodzące do komputera. Ponowne uruchomienie programu i połączenie z modułem bt załatwia sprawę.
Próbowałem naprawić problem, tworząc timer w delphi i wysyłając NULL co sekundę. Efekt jest taki że dane do telefonu nadlatują przez cały czas, ale późniejszy brak reakcji i tak następuje.
Prawdopodobnie nadsyłanie ciągłe danych ze strony telefonu załatwiłoby sprawę, ale wtedy musiałbym napisać od zera swoją aplikację w androidzie.
Jak będzie potrzeba to mogę zamieścić kod, ale chodzi o obsługę portu com, to naprawdę nie ma w nim nic poza otwieraniem portu po naciśnięciu przycisku.

Ktoś wie co może być przyczyną braku reakcji po dłuższym czasie ?

Statystyki: Napisane przez Bumcfksz — 9 kwi 2018, o 13:45

ATNEL tech-forum

Re: Problem z utrzymaniem połączenia poprzez comport

Re: Problem z utrzymaniem połączenia poprzez comport

Re: Problem z utrzymaniem połączenia poprzez comport

Re: Problem z utrzymaniem połączenia poprzez comport

Problem z utrzymaniem połączenia poprzez comport