quote:

---

«πρώτο καλοκαίρι μετά από 18 χρόνια που δεν πήρα το portable παραμάσχαλα στις διακοπές, άρα Νίκη μεγάλη...»

---

quote:

---

Δεν φαντάζομαι, η μεγάλη Νίκη να είναι κάποια παλιά συμμαθήτρια ?

---

quote:

---

Μπορεί να τον καταφέρω να το ξαναγράψει με objects

---

quote:

---

Έχω τον γιο μου πρωτοετή στο ΕΜΠ σπασικλάκι κανονικό με δεκάρια κι έτσι.

---

quote:

---

Μόνο που στους Μηχανολόγους τους «αλωνίζουν» με την Fortran και έχει τα νεύρα του αν και του λέω να μάθει κι αυτήν

---

quote:

---

Έτσι κι αλλιώς στο να γράψεις κώδικα δεν μετρά η γλώσσα αυτή καθεαυτή όσο το ταλέντο σου να συνθέτεις «γλωσσικούς μηχανισμούς» οι οποίοι τρέχουν άψογα και δίχως προβλήματα.

---

quote:

---

Περιττό να προσθέσω ότι η ιδέα των objects είναι απόρροια των φοβερών records της Pascal. Το ηλιακό μου πρόγραμμα βασίσθηκε σε 3 τέτοια records που δόμησα όπως TSunData, THliakosStruc, TBoilerStruc. Για παράδειγμα η θερμοκρασία εξόδου από τον συλλέκτη είναι ιδιότητα του THliakosStruc ή η θερμοκρασία εισόδου στον εναλλάκτη του boiler είναι ιδιότητα του TBoilerStruc

---

TSunEnergy = class

Public

// Ηλιακή ενέργεια στο συγκεκριμένο GeoPlatos, ημέρα και ώρα σε W/m2
    function Energy:Double; overload; 
// με μεταβλητή την ώρα σε W/m2
    function Energy(aTime:integer):Double; overload; 

    property Time:integer; // seconds since midnight
    property Month:integer;
    property Day:integer;
    property GeoPlatos:double;
    property SunPerc:double;// Συντελεστής ηλιοφάνειας
End;

TSolarPanel = class
public

    function Energy(EnergyIn):double; // συνολική για όλη την επιφάνεια kWh
    function Flow:double;    // ροή Lt/h

    property SolarAbsorbtion:double; // ποσοστό απορρόφησης ηλιακής ενέργειας
    property Slope :double; //κλίση ηλιακού
    property SouthDeviation:double; // Απόκλειση από τον Νότο
    property Surface:double; // εμβαδόν συλλεκτικής επιφάνειας

    property Efficiency:double; // απόδοση ηλιακού

    property GlycolePerc : double;
    property WaterInTemperature:double;  // θερμ. εισόδου κλειστού κυκλώματος
    property WaterOutTemperature:double; // θερμ. εξόδου κλειστού κυκλώματος

end;

THeatSource = (hsSolarPanel, hsBurner, hsElectricity)

ΤBoiler = class

public

// κάνω την παραδοχή οτι μόνο μία πηγή ενέργειας τροφοδοτεί το boiler

    function Heat(inEnergy:double; from:THeatSource):double; // στιγμιαία ισχύς Kw

    function AccumulatedEnergy:double; // από το περιεχόμενο ζεστό νερό Kwh

    function SolarFraction:double; // ποσό ενέργειας απο ηλιο / ποσό ενέργειας κατανάλωσης

    property WaterVolume:double;
    property AverageDayConsuption:double; // lt 
    property WaterInTemperature:double;    // ανάλογα με την εποχή.
    property WaterOutTemperature:double;  // ανάλογα με την εποχή.

    property SolarHeatExchangeSurface :double;   // m2
    property BurnerHeatExchangeSurface :double; // m2

end;

TCalculator = class

    procedure Calc(aDate:TDate; // για συγκεκριμένη ημερομηνία
                   FromTime, ToTime:TTime; step: integer;
                   aSolarPanel:TSolarPanel;
                   aBoiler:TBoiler);
    property CalcCount:integer;
    property Time[index:integer]:TTime; //
    property SunHeight[index:integer]:degrees;
    property SunAzimou8io [index:integer]:degrees;
    property BoilerTemp [index:integer]:double;
    property CollectorTempIn [index:integer]:double;
    property CollectorTempOut [index:integer]:double;
...
end;

quote:

---

Ποσο βορεια δλδ?

---

πως θα παντρεψεις το arduino και την object pascal?

quote:

---

Τα windows για αυτοματισμο χαμηλου επιπεδου ειναι καπως δυστροπα...

---

quote:

---

Εχεις βρει κανα τροπο να μεταφερεις το αποτελεσμα της object pascal σε περιβαλλον εκτος windows? Χωρις τυχον παραθυρικο..

---

quote:

---

Προβλεπω οτι συντομα η καλυτερη πλατφορμα αυτοματισμου θα ειναι android based...

---

quote:

---

Απο την αλλη, οτι δεν εξελισσεται πεθαινει...

---

move variable, accum, 
Add  accum,1
move accum, variable

Lock                 // ο σηματοδότης γίνεται κόκκινος
Load accum, variable // φώρτωσε την μεταβλητη στο καταχωρητή
Inc accum,1          //  αυξησε την τιμή του καταχωρητή κατά 1 
Save accum, variable // αποθήκευσε τον καταχωρητή στη μεταβλητή
Unlock               // ο σηματοδότης γίνεται πράσινος

TFileCopy = class(TThread)
   private
    FsrcFNames,
    FdstFnames:TStrings;
   protected
    procedure Execute; override;
   public
    constructor CopyFiles(const srcFNames,dstFnames:TStrings);
    procedure   Stop;
  end;

…

procedure TFileCopy.Execute;
...
begin
...
  while not Terminated do
   begin

// πως χρησιμοποιούμε το try/finally με πολλά objects

    fsrc:=nil;
    fdst:=nil;
    try
…
// Ελέγχουμε πάντα τα exceptions γιατί διαφορετικά 
// διακόπτεται η εκτέλεση του thread

     try

// επικοινωνία με το κύρια φόρμα της εφαρμογής
      PostMessage(UIHandle, COPY_EVENT, 1, fsrc.Size); 

     Except

// επικοινωνία με το κύρια φόρμα της εφαρμογής με strings
      debug(Exception(ExceptObject).Message);
      PostMessage(UIHandle, COPY_EVENT, 0, 0);

     end;

    finally
     fdst.free;
     fsrc.Free;
    end;

   end;

procedure TFileCopy.Stop;
 begin
  Terminate;
  WaitFor;
 end;

TMainFrm = class(TForm)
   …
    procedure LogEvent(var Msg: TMessage); message LOG_EVENT;
   …
   end;

procedure TMainFrm.LogEvent(var Msg: TMessage);
 begin
  Log(pchar(msg.wParam));
  StrDispose(pchar(msg.wParam));
 end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
....
 UIHandle:=Handle;
end;

procedure Debug(const msg:string);
 var p:pchar;
 begin
  if UIHandle=INVALID_HANDLE_VALUE then
   outputdebugstring(pchar(msg))
  else begin
   p:=strNew(pchar(msg));
   PostMessage(UIHandle,LOG_EVENT,integer(p),0)
  end;
 end;

TBasicWorkObject=class
   public
    procedure doWork; virtual; abstract;
   end;

TGrabUrl=class(TBasicWorkObject)
   private
    FClientSocket: TClientSocket;
..
   public
    procedure   doWork; override;
    constructor Create(const aSite,aUrl:string;aDepth:integer); overload;
..
    property    Stream:TMemoryStream read FStream;
    property    Depth:integer read FDepth;
  end;

postmessage(UIHandle,WORK_DONE,integer(self),0);

TThreadsMngr=class(TThread)
   private
    FPeriod:integer;
    FThreads,
    FWorkQ :TObjectList;
   ...
   public
    constructor Create(WorkThreadClass:TWorkThreadClass;
                       DefThreadCount:integer=10);
    ...
    procedure   QueueWork(work:TBasicWorkObject);
  end;

TWorkThread=class(TThread)
   private
    FWorkObj   : TBasicWorkObject;
    ...
   public
    constructor Create(aId:integer;aHandle:THandle);
    procedure  Work(aWorkObj:TBasicWorkObject);
    ...
   end;

procedure TWorkThread.Work(aWorkObj:TBasicWorkObject);
 begin
  FWorkObj:=aWorkObj;
  FWorkEvent.SetEvent;
  if Suspended then Resume; // FWorkEvent will signal imediatelly
 end;

procedure TWorkThread.Execute;
begin
  H[0] := FStopEvent.Handle;
  H[1] := FWorkEvent.Handle;

  while not Terminated do
   case WaitForMultipleObjects(2, @H, False, INFINITE) of
    WAIT_OBJECT_0     : Terminate; // StopEvent Signaled
    WAIT_OBJECT_0 + 1 : begin // WorkEvent Signaled
                         try
                          FWorkObj.doWork;
                         except
                         end;
                         FWorkEvent.ResetEvent; // Lower WorkEvent
                        end;
   end

 end;

              TCustomWinSocket (abstract)
          |              |                 |                
TClientWinSocket  TServerClientWinSocket TServerWinSocket

           TAbstractSocket (abstract)
                    |
              TCustomSocket (abstract)
                |         |
     TClientSocket   TCustomServerSocket (abstract)
                             |
                        TServerSocket       

|Modbus Application Protocol (MBAP) Header | Protocol Data Unit (PDU)|
|------------------------------------------+-------------------------|
|Transaction |Protocol  | Length  | Unit   | Function   |   Data     |
|Identifier  |Identifier| Field   | ID     | Code       |            |
|--------------------------------------------------------------------|
| (2 bytes)  |(2 bytes) |(2 bytes)|(1 byte)|(1 byte)    | Μεταβλητό  |
|------------------------------------------+-------------------------|

http_URL = "http:" "//" host [ ":" port ] [ abs_path [ "?" query ]]

GET / HTTP/1.1
Host: 127.0.0.1:1024
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:15.0) Gecko/20100101 Firefox/15.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en,el;q=0.8,el-gr;q=0.5,en-us;q=0.3
Accept-Encoding: gzip, deflate
DNT: 1
Connection: keep-alive

HTTP/1.1 200 OK
Content-Length: 11
Hello World
Connection: close
[empty line]

Client  ---------- initate connection -----------> Server
...
Client  <---------------command------------------- Server
Client  ----------------response-----------------> Server
...
Client  <---------------command------------------- Server
Client  ----------------response-----------------> Server

|Modbus Application Protocol (MBAP) Header | Protocol Data Unit (PDU)|
|------------------------------------------+-------------------------|
|Transaction |Protocol  | Length  | Unit   | Function   |   Data     |
|Identifier  |Identifier| Field   | ID     | Code       |            |
|--------------------------------------------------------------------|
| (2 bytes)  |(2 bytes) |(2 bytes)|(1 byte)|(1 byte)    | Μεταβλητό  |
|------------------------------------------+-------------------------|

procedure TFrmServer.ServerGetThread(Sender: TObject;  ClientSocket: TServerClientWinSocket;   var SocketThread: TServerClientThread);
begin
 SocketThread:=TSrvThread.Create(ClientSocket, Handle);
end;

TSrvThread=class(TServerClientThread)
           private
            fHandle:THandle;
...
           protected
            procedure ClientExecute; override; 
           public
            constructor Create(aSocket:TServerClientWinSocket;
           aHandle:THandle);
           end;

Request-Line   = Method SP Request-URI SP HTTP-Version CRLF
Όπου Method         = "OPTIONS"                ; Section 9.2
                      | "GET"                    ; Section 9.3
                      | "HEAD"                   ; Section 9.4
                      | "POST"                   ; Section 9.5
                      | "PUT"                    ; Section 9.6
                      | "DELETE"                 ; Section 9.7
                      | "TRACE"                  ; Section 9.8
                      | "CONNECT"                ; Section 9.9
                      | extension-method
       extension-method = token

  rtModBus : begin
         case pbFC^ of
           $03 : begin // mbfReadHoldingRegs = $03;
                  pa:=pword(FRequest);
                  pd:=pa;
                  inc(pa, 4); // points to Start Address
                  inc(pd, 5); // point to count
                  move(FRequest^,data[0],8);
                  cnt:=swap(pd^);
                  data[ 8]:=cnt*2;
                  pd:=pword(@data[9]);
                  for i:=0 to pred(cnt) do begin
                    w:=SendMessage(fHandle,REG_GET,swap(pa^)+i,0);
                    pd^:=swap(w);
                    inc(pd);
                   end;
                  size:=8+1+cnt*2;
                  data[5]:=2 + 1 + cnt*2;
                  ClientSocket.SendBuf(data,size);
                 end;

Modbus:=TModbus.Create(FSocket);
If Modbus.ReadHoldingRegisters(1,1) then
 Modbus.HoldingRegs[1]

// check for ModBus request
  if FReqSize>=12 then begin
   pwTI :=pword(p);    // 0..1 Transaction Identifier
   pwPI :=pword(p+2);  // 2..3 Protocol Identifier
   pwlf :=pword(p+4);  // 4..5 Length Field
   pbUID:=pbyte(p+6);  // 6    Unit ID
                       //      MB_IGNORE_UNITID = 255
   pbFC :=pbyte(p+7);  // 7;   Function Code
                       //      mbfReadHoldingRegs = $03;
                       //      mbfWriteOneReg = $06;
                       // 8;   Data

   if ((pbFC^=$06) or (pbFC^=$03)) and (pwlf^=swap($0006)) then begin
    result:=rtModBus;
    exit;
   end;
  end;

try
   FModbus:=TModbus.Create(FRequest^,FReqSize);
   FModbus.OnGetData:=ModbusGetData;
   FModbus.OnSetData:=ModbusSetData;
   result:=rtModBus;
   exit;
  except
   Log('Not modbus message');
  end;

rtModBus : begin
         case pbFC^ of
           $03 : begin // mbfReadHoldingRegs = $03;
                  pa:=pword(FRequest);
                  pd:=pa;
                  inc(pa, 4); // points to Start Address
                  inc(pd, 5); // point to count
                  move(FRequest^,data[0],8);
                  cnt:=swap(pd^);
                  data[ 8]:=cnt*2;
                  pd:=pword(@data[9]);
                  for i:=0 to pred(cnt) do begin
                    w:=SendMessage(fHandle,REG_GET,swap(pa^)+i,0);
                    pd^:=swap(w);
                    inc(pd);
                   end;
                  size:=8+1+cnt*2;
                  data[5]:=2 + 1 + cnt*2;
                  ClientSocket.SendBuf(data,size);
                 end;

rtModBus : begin
                   FModbus.PrepareResponse;
                   FModbus.Respond(ClientSocket);
                   FreeAndNil(FModbus);
                  end

TBytes = array of byte;

 TMBAP = packed record { 7 bytes }
           TrnId : word;
           ProtocolIdent: word;
           Len:word;
           UnitId:byte;
          end;

 TPDU  = packed record { 253 bytes }
           FC  : byte;
           Data: packed record case integer of
                  0 : (b: array[0..251] of byte);
                  1 : (w: array[0..125] of word);
                  2 : (o: packed record
                            len : byte;
                            w   : array[0..124] of word;
                            b   : byte;
                           end)
                 end;
          end;

 TADU  = packed record // 260 bytes
           MBAP : TMBAP;
           PDU  : TPDU;
          end;

|Modbus Application Protocol (MBAP) Header | Protocol Data Unit (PDU)|
|------------------------------------------+-------------------------|
|Transaction |Protocol  | Length  | Unit   | Function   |   Data     |
|Identifier  |Identifier| Field   | ID     | Code       |            |
|--------------------------------------------------------------------|
| (2 bytes)  |(2 bytes) |(2 bytes)|(1 byte)|(1 byte)    | Μεταβλητό  |
|------------------------------------------+-------------------------|

 TModbus = class
           Private
             ...
           Public
            // Client Side
            constructor Create(aSocket:TCustomWinSocket); overload;
            // Server Side
            constructor Create(const Request; size:word); overload;  
            procedure   PrepareResponse;
            procedure   Respond(aSocket:TCustomWinSocket);

            function ReadCoils(StartAddress, Count:word):boolean;
            function ReadDiscreteInputs(StartAdd,Count:word):boolean; 
            function ReadHoldingRegisters(RegNo,Count:word):boolean; 
            function ReadInputRegisters(RegNo,Count:word):boolean;
            procedure WriteSingleCoil(Addr:word;value:boolean);
            procedure WriteSingleRegister(RegNo,value:word);

            property  DiscreteInput[idx:integer]:boolean read ...
            property  Coils[idx:integer]:boolean read ...
            property  InputRegs[idx:integer]:word read ...
            property  HoldingRegs[idx:integer]:word read ...

            property  FC:byte read FFC;
            property  Request:TBytes read GetRequest;
            property  Response:TBytes read GetResponse;

            property  OnGetData:TOnExchangeData read ...         
            property  OnSetData:TOnExchangeData read ...

           end;

TOnExchangeData = procedure(FC:byte; param1,param2:word;var value:word) of object;

+-----+---------------+-----+
| STX |      Data     | ETX |
+-----+---------------+-----+

<--------------------- Data -------------------><--Checksum -->
+---------+---------+---------+------+---------+---------------+
| Request / Field 1 / Field 2 / .... / Field N /       CC      |
+---------+---------+---------+------+---------+---------------+

<--------------------- Data -----------------------------><-Checksum->
+---------+--------+--------+-------+-------+------------+-----------+
|Response /Status 1/Status 2/Field 1/Field 2/..../Field N/    CC     |
+---------+--------+--------+-------+-------+------------+-----------+

BYTE CalcChecksum(BYTE *packet)                        
 {                                                      
   BYTE sum = 0;                                        
   int  checklength = strlen(packet) - 2;               
                                                        
   while(check length--) sum += (BYTE) (*packet++);     
   return (sum % 100));                                 
 }

---------------------------------------------------------
     IDLE                           IDLE
     ENQUIRE ---------------------> 
             <--------------------- ACKNOWLEDGE
   Τx PACKET ---------------------> 
             <--------------------- ACKNOWLEDGE
             <--------------------- Rx PACKET
 ACKNOWLEDGE --------------------->
        IDLE                        IDLE

TPacketType = (ptTx, ptRx);

TPacket = class(TObject)
...
 public
  constructor Create;            overload;
  constructor Create(aReq:char); overload;
  destructor  destroy; override;
  class function CalcCheckSum(const data: string): string;
  class function ChecksumValid(const data:string):boolean;
  property Fields[index:integer]:string read GetField write SetField;
  property Data:string read GetData write SetData;
  property PacketType:TPacketType read fPacketType write fPacketType;
  property RxResposeCode:integer read fRxResposeCode;
  property RxStatus1:integer  read fRxStatus1;
  property RxStatus2:integer read fRxStatus2;
 end;

tx:=TPacket.Create('b'); // Request = SetVatRates
for i:=1 to 5 do // προσθέτουμε 5 συντελεστές ΦΠΑ
 tx.Fields[i]:=format('%.2f/',[VatRates[i]]);

rx:=TPacket.Create;
rx.data:=msg; // χωρίς STX, ETX

TSession = class
... 
 public
  constructor Create(const params:string); // COM1,9600,N,8,1
  destructor destroy; override;
  // <0 Σφάλμα επικοινωνίας
  // 0  Επιτυχία επικοινωνίας & εκτέλεσης της εντολής
  // >0 Σφάλμα πρωτοκόλλου
  function  Communicate(const TxPacket:TPacket; 
                        out RxPacket:TPacket):integer;
 end;

TFiscalPrinter = class
.. .
 public
  constructor create(const COMPort:string);
  destructor destroy; override;

  function FiscalTime:TDateTime;
  function SerialNumber:String;
  function TicketNumber:integer;
  function ZNumber:integer;

  procedure OpenDay;        // Logical operation
  procedure CloseDay;       // Issue Z, read EJ

  procedure OpenTicket(tt:TTicketType; const Title:string ='';                 
                       const Seira:string=''; number:integer=0);
  procedure SaleItem(const code, descr, barcode:string; 
                     price, quant, amount:double; vatCat:integer);
  procedure VoidItem(const code, descr, barcode:string; 
                     price, quant, amount:double; vatCat:integer);
  procedure RefoundItem(const code, descr, barcode:string; 
                        price, quant, amount:double; vatCat:integer);
  procedure DiscountItem(const code, descr, barcode:string; 
                     amount:double; vatCat:integer);
  procedure SubTotalTicket;
  procedure SubTotalDiscount(amount:double);

  procedure CancelTicket;
  procedure CloseTicket;
...
 property capEJ:boolean read FcapEJ; // capability has Electronic Journal
 property capSlip:boolean read FcapSlip;// capability has SlipPrinter

 property Header[index:integer]:string read GetHeader write SetHeader;
 property Footer[index:integer]:string read GetFooter write SetFooter;
 property VatRates[index:integer]:string read GetVatRate write SetVatRate;    
 end;

quote:

---

πολύ ειδικοί θα έλεγα!

---

quote:

---

Οι τεχνικες παραμενουν τεχνικες..

---