Lazarus i odczyt/wysyłanie z portu com

Może mi ktoś powiedzieć, jak mozna w prosty sposób komunikować się przez wirtualnego coma (bluetooth) za pomocą lazarusa?

Spróbuj może otworzyć plik o nazwie: com1: do odczytu lub pisania

procedure Tform1.button1click (sender : tobject);
                 var plk : textfile;
begin
  AssignFile (plk, 'com1:');
  AppendFile (plk);
  WriteLn (plk, 'test');
  closefile (plk);
end;


Niestety, ale kompilator nie wie, co to jest appendfile ;]

procedure TForm1.Button1Click(Sender: TObject);
var
  plik:textfile;
begin
  assignfile(plik,'com6');
  reset (plik);
  writeln(plik,edit1.text);
  closefile(plik);
end;Po uruchomieniu takiego programu pisze mie, ze nie można znaleźć pliku

Potrzebujesz bibliotek takich:

mnStreams, mnCommClasses, mnCommStreams, mnCommThreads

Są do pobrania na stronie lazarusa, jak nie znajdziesz to wpisz tam w szukajce.

A odwołanie się do portu wtedy wygląda tak (przykładowy program do obsługi GPS z ustawianiem portu - jest razem z unitami do pobrania):

unit MainForms;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls,  Dialogs, StdCtrls,
  ExtCtrls, Menus, IniFiles, interfaces,
  mnStreams, mnCommClasses, mnCommStreams, mnCommThreads, GPSUtils, GPSThreads;

type
  { TForm1 }
  TForm1 = class(TForm)
    ConvertBtn1: TButton;
    DecimalEdit: TEdit;
    DMEdit: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    DMLbl: TLabel;
    ListBox1: TListBox;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    PortEdit: TPanel;
    BaudRateEdit: TPanel;
    StartBtn: TButton;
    Label1: TLabel;
    ConvertBtn: TButton;
    StopBtn: TButton;
    GPSTimer: TTimer;
    procedure ConvertBtn1Click(Sender: TObject);
    procedure ConvertBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure GPSTimerTimer(Sender: TObject);
    procedure MemoChange(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure StartBtnClick(Sender: TObject);
    procedure SendTimerTimer(Sender: TObject);
    procedure StopBtnClick(Sender: TObject);
  private
    FCancel: Boolean;
    FCommStream: TmnCommStream;
    FThread : TmnGPSThread;
    procedure CancelThread;
  public

  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

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

procedure TForm1.StopBtnClick(Sender: TObject);
begin
  CancelThread;
  GPSTimer.Enabled:= False;
end;

procedure TForm1.CancelThread;
begin
  FCancel := True;
  if FThread <> nil then
  begin
    FThread.Terminate;
    FThread := nil;
    FCommStream := nil;
  end;
end;

procedure TForm1.StartBtnClick(Sender: TObject);
begin
  if FThread = nil then
  begin
    FCommStream := TmnCommStream.Create(True, PortEdit.Caption, StrToInt(BaudRateEdit.Caption));
    FCommStream.ReadTimeout := 10;
    FCommStream.ReadTimeoutConst := 100; //or use QueMode
//    FCommStream.QueMode := True;
    FCommStream.ConnectMode := ccmRead;
    FCommStream.Connect;
    FThread := TmnGPSThread.Create(True, FCommStream);
    FThread.EndOfLine := #13;
    FThread.FreeOnTerminate := True;
    FThread.Resume;
  end;
  GPSTimer.Enabled := True;
end;

procedure TForm1.MemoChange(Sender: TObject);
begin

end;

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CancelThread;
end;

procedure TForm1.GPSTimerTimer(Sender: TObject);
var
  Info:TGPSInfo;
begin
  Info := GPSInfo;
  if Info.Source <> '' then
  begin
    ListBox1.Items.Add(Info.Source);
    ListBox1.Items.Add(GPSToMAP(Info.Decimal));
    ListBox1.ItemIndex := ListBox1.Items.Count - 1;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Application.Terminate;
end;

procedure TForm1.ConvertBtnClick(Sender: TObject);
begin
  DMEdit.Text := GPSDecimalToDM(StrToFloat(DecimalEdit.Text));
end;

procedure TForm1.ConvertBtn1Click(Sender: TObject);
var
  Info :TGPSInfo;
begin
  GPSPrase('$GPGGA,204852.000,4038.0022,N,07401.2578,W,1,6,1.64,31.7,M,-34.3,M,,*5B', Info);
  DecimalEdit.Text := Info.Source;
  DMEdit.Text := GPSToMAP(Info.Decimal);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  IniFile:TIniFile;
begin
  IniFile:=TIniFile.Create(Application.Location + 'Options.ini');
  PortEdit.Caption:=IniFile.ReadString('Options', 'Port', 'COM6');
  BaudRateEdit.Caption:=IniFile.ReadString('Options', 'BaudRate', '4800');
end;

initialization
  {$I MainForms.lrs}
end.



A możesz mi podać dokładniej, gdzie ściągnąć te biblioteki?
Znalazłem temat na ich forum o odczycie danych z gpsa, ale i tak nie wiem, skąd dorwać te biblioteki...

Po wpisaniu dowolnej z bibliotek w google, dostajesz link do forum lazarusa, konkretnie do tematu z linkami, uzytkownik zaher7 to wrzucił i to są jego programy.

Hmm, no dobra, możesz mi jeszcze powiedzieć, jak odpalić te jego programy, co tam są na tym forum w lazarusie?
Niestety z lazarusem sobie za bardzo nie radze ;]

To może mi ktoś pomóc?

Emati ale jak można Tobie pomóc bardziej? Masz źródła, przykład. Ja się za Ciebie Lazarusa nie nauczę. Reszta to nauka, nauka i nauka. W tym sporo pisania, testów i ciągle nauka.

Natomiast jak masz problem z odpaleniem przykładów - pisz do ich autora, jest szansa, że pomoże.

Dodatkowo masz całkiem obszerne forum lazarusa na stronie lazarusa , tam zadawaj pytania.

Chodzi mi o to, że nie wiem po prostu, jak dodać do lazarusa te biblioteki:
mnStreams, mnCommClasses, mnCommStreams, mnCommThreads

Tak jak w przykładzie, wystarczy, że dopiszesz do klauzuli uses i dorzucisz pasy do katalogu z programem.

Dobra, albo ja jestem tępy, albo nie wiem, gdzie są te biblioteki...
Możesz mi je wrzucić na forum?
Bo jak przeglądałem tamto forum lazarusa i te linki, to nie znalazłem zadnych bibliotek o tych nazwach...

http://forum.lazarus.freepascal.org/index.php?PHPSESSID=53df9e046cd7cc93e91b0c62e74658e3&topic=6351.msg29780#msg29780

z tego posta:
http://minilib.svn.sourceforge.net/viewvc/minilib/trunk/lib/
http://minilib.svn.sourceforge.net/viewvc/minilib/trunk/Demos/GPSEmu/
http://minilib.svn.sourceforge.net/viewvc/minilib/trunk/Demos/GPSMon/

wchodzisz i tam w jego wrzutach masz wszystko co potrzeba, wybierz MINILIB, dostaniesz:
http://minilib.svn.sourceforge.net/viewvc/minilib/trunk/MiniComm/source/

Heh, no fakt, wielkie dzięki za pomoc, naprawdę dzięki
Teraz chyba sobie już poradzę z tym wszystkim ;]