Buffer protocollo Delphi?

Question

Qualcuno sa di un progetto per eseguire un'implementazione dei buffer del protocollo Google in Delphi?

Answer 1

Questo progetto contiene l'implementazione di buffer di protocollo per Delphi. Dal progetto è stata implementata la funzionalità limitata necessaria per un progetto specifico. A quel tempo, non ho alcun senso trasferire l'intero codice del progetto. http://sourceforge.net/projects/protobuf-delphi/

Answer 2

Potrebbe essere meglio trovare/creare un bridge C++/Delphi piuttosto che riutilizzare i buffer del protocollo. Il codebase è piuttosto grande.

Answer 3

Mi chiedo che cosa pensi dell'uso di JSON o BSON come un lavoro in corso) come un protocollo.

Answer 4

Qui:

Fundamentals buffer protocollo 4.00.01 (10 Feb 2013)

Google buffer protocollo

http://fundementals.sourceforge.net/dl.html

Answer 5

ho trovato another one sul github. (sviluppato da febbraio 2014 a luglio 2016, da giugno 2017)

Sembra che abbia preliminary proto3 support.

Non ho ancora testato, ma potrebbe essere il migliore fino ad oggi.

https://github.com/stijnsanders/DelphiProtocolBuffer

EDIT: ho provato questo, ma sembra essere scritto in Delphi vecchio e non unicode pronto.

ho potuto compilare il generatore (utilizzando 10 Seattle), ma exe compilato non sono riuscito a generare il file pas :-(

EDIT2:

Il generatore di codice funziona solo sostituendo TStream a TStreamReader/Writer . ho confermato generatore in grado di convertire recente address book sample.

diff --git a/ProtBufParse.pas b/ProtBufParse.pas 
index f29d7c7..cdd734d 100644 
--- a/ProtBufParse.pas 
+++ b/ProtBufParse.pas 
@@ -236,16 +236,13 @@ var 

    procedure LoadCode; 
    var 
- f:TFileStream; 
+ sr:TStreamReader; 
    begin 
- f:=TFileStream.Create(FilePath,fmOpenRead or fmShareDenyWrite); 
+ sr:=TStreamReader.Create(FilePath, True{DetectBOM}); 
    try 
-  //TODO: UTF-8? UTF-16? 
-  CodeL:=f.Size; 
-  SetLength(Code,CodeL); 
-  if f.Read(Code[1],CodeL)<>CodeL then RaiseLastOSError; 
+  Code := sr.ReadToEnd; 
    finally 
-  f.Free; 
+  sr.Free; 
    end; 
    end; 

diff --git a/dpbp.dpr b/dpbp.dpr 
index 4049480..b6dab90 100644 
--- a/dpbp.dpr 
+++ b/dpbp.dpr 
@@ -22,7 +22,7 @@ var 
    p:TProtocolBufferParser; 
    s,t,InputFN,OutputFN,RelPath:string; 
    i,j,l,l1:integer; 
- f:TFileStream; 
+ sw:TStreamWriter; 
    fv:TProtocolBufferParserValue; 
    ff:TProtocolBufferParserFlag; 
    Flags:TProtocolBufferParserFlags; 
@@ -134,11 +134,12 @@ begin 

     writeln('Writing '+OutputFN); 
     s:=p.GenerateUnit(Flags); 
-  f:=TFileStream.Create(OutputFN,fmCreate); 
+ 
+  sw:=TStreamWriter.Create(OutputFN,False,TEncoding.UTF8); 
     try 
-   f.Write(s[1],Length(s)); 
+   sw.Write(s); 
     finally 
-   f.Free; 
+   sw.Free; 
     end; 

     finally