Programm stürzt ab und sperrt Comport (USB-RS232)

[jaenicke]

Versuche einmal im Gerätemanager den seriellen Port zu ändern, z.B. auf COM7. Den sollte dann ja niemand kennen.

Wurde das Gerät automatisch erkannt oder musstest du manuell Treiber installieren? Wenn es ein Original ist, sollte es unter Windows 10 einfach so ohne Treiber funktionieren.

[HolgerX]

Hmm...

Mal Vorweg eine Frage:

Wie greifst Du auf den ComPort zu?

Über den Windows-Weg mit 'CreateFile(...)' oder direkt irgendwie auf den Treiber?

Welche Comport-Componente verwendest Du?

[Maja Jessica]

Treiber wurde nicht direkt installiert, habe aber ein Install für 64bit gefunden.
Diesen Installiert, klappte dann auch zwei Tage ohne Probleme. Bis zu diesem Absturz.
Im Gerätemanager auf andere Comport umgelegt -> kein Erfolg.
Komplett deinstalliert inkl. Treiber, Neustart, wieder installiert, Neustart -> Das gleiche: gesperrt.
Benutze dieses SdpoSerial1RxData aus 5dpo / SdpoSerial (sourceforge)

Jetzt geb ich es auf, warte auf den DHL-Mann der mir den Win10/64 empfohlenen Stick bringt.

Aber vielen Dank an alle für eure Hilfe

[bytecook]

Zitat von Maja Jessica:

Treiber wurde nicht direkt installiert, habe aber ein Install für 64bit gefunden.
Diesen Installiert, klappte dann auch zwei Tage ohne Probleme. Bis zu diesem Absturz.
Im Gerätemanager auf andere Comport umgelegt -> kein Erfolg.
Komplett deinstalliert inkl. Treiber, Neustart, wieder installiert, Neustart -> Das gleiche: gesperrt.
Benutze dieses SdpoSerial1RxData aus 5dpo / SdpoSerial (sourceforge)

Jetzt geb ich es auf, warte auf den DHL-Mann der mir den Win10/64 empfohlenen Stick bringt.

Aber vielen Dank an alle für eure Hilfe

Bist du sicher, dass das Programm beim Exit nicht irgendwo noch im Taskmanager sichtbar ist? Auch mal unter Prozesse nachsehen,
wenn die Mainform schon aufgelöst ist, das Proggy aber nicht vollständig zu ist, kommt das mal schon vor...

Bzw, beende die Connection mal vorher schon, in dem du den Port manuell schließt, danach erst das Programm...

Lg,

Peter

[Klaus01]

.. was mir nicht in den Kopf will, ist dass nach einem reboot der Port immer noch blockiert ist.

Startet das Tool denn beim Neustart automatisch?

Grüße
Klaus

[himitsu]

Ich hätte jetzt gefragt, ob es sich um Windows 8.1 handelt.
Da gibt es auch so einen "Bug".

Mit einem anderen Treiber ging es besser und nach dem Upgrade aus Windows 10 ging es endlich richtig.

[Maja Jessica]

An Task's, die noch irgendwo herumgeistern, habe ich nichts gefunden.
Das Schliessen des Comports erfolgt unter Form.OnClose.
Habe alles reduziert auf ein kleines Testprogramm. (Ich weiss, da sind Sachen drin "die man so nicht macht")
Und ja, der Comport ist selbst nach einem Neustart blockiert.

So langsam bin ich der Ansicht, das dieses alles nicht mit Lazarus zu tun hat.
War wohl nur zufällig passiert als ich das mit Lazarus erstellte Programm ausserhalb der IDE gestartet hatte. (Off-Topic verschieb?)

Also:
- Heute morgen backup von C neu eingespielt, Comport ok.
- Lazarus IDE -> Programm kompiliert und gestartet, ok.
- Programm ausserhalb IDE gestartet, auch gut.
- Mehrfach wiederholt, alles ok.
Dann aber (ja, mach man auch nicht):
wärend Programm (exe.file) läuft den USB/RS232 abgezogen.
Keine Fehlermeldung, aber natürlich auch keine Kommunikation.
USB/RS232 wieder gesteckt, seit dem kann ich mit nichts mehr auf den Comport zugreifen.
HTERM schreibt: "Com6 is blocked by another application"
Der Gerätemanager zeigt "alles gut" an, finde auch wieder nichts im Hintergrund.

Also gehe ich davon aus, das bei dem ersten gau auch zufällig ein Wackeliger in der Hardware war.
Nur das darauf Windows sich mit einem erzwungenen Neustart meldete.
Jetzt nicht.
Würde jetzt gerne einen Neustart tätigen, um zu sehen on Comport immer noch geblockt ist,
leider läuft gerade ein Backup (60%), welches noch etwa eine Stunde dauert.

Bin mal gespannt ...

Code:

unit unitspannung;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, SdpoSerial;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    ProgressBar1: TProgressBar;
    SdpoSerial1: TSdpoSerial;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SdpoSerial1RxData(Sender: TObject);
    procedure anzeige(s: string);
  private
    { private declarations }
  public
    { public declarations }
    eingang : string;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure Tform1.anzeige(s: string);
var i : integer;
    ftemp : real;
begin
  for i:=1 to length(s) do if s[i]='.' then s[i]:=',';
  Label1.Caption := Copy(s,3,6);
  ftemp := StrToFloat(label1.caption);
  ProgressBar1.Position := Round(ftemp);
  label1.Caption := Format('%2.2f',[(12/1023)* ftemp])+'V';
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  SdpoSerial1.Active:=false;
  SdpoSerial1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SdpoSerial1.Active:=true;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  SdpoSerial1.Device := 'COM6';
end;

procedure TForm1.SdpoSerial1RxData(Sender: TObject);
begin
  eingang := eingang + SdpoSerial1.ReadData;
  if length(eingang) >= 52 then
  begin
    anzeige(eingang);
    Memo1.Lines.Add(eingang);
    eingang := '';
  end;
end;


end.

Auch wenn es vermutlich grausam ist, am Programm liegt es nicht.

[EWeiss]

Nur als Anreiz..

Eine Formatierung wäre nicht schlecht.
Und leere proceduren sind unnötig.
Da hier in FormCreate nichts geschieht kannst du diese auch direkt löschen.

Oder aber du packst das
SdpoSerial1.Device := 'COM6';
nach FormCreate

und löschst FormShow

gruss

[t.roller]

The trick is to open the Command Prompt as administrator and start the Device Manager from the same command prompt.

1. Right-click “Command Prompt” in Accessories and choose “Run as Administrator”

2. Enter set devmgr_show_nonpresent_devices=1

3. Enter start devmgmt.msc

4. In the box that opens, select Show hidden devices in the ‘view’ menu.

Now if you expand the section on COM ports, all the COM ports that have ever been created will be displayed, the non present ones being in grey. You can uninstall away anything that you don’t want
(right click, select uninstall).