Кто-нибудь знает о проекте для реализации буферов протоколов Google в Delphi?
Буферы протокола Delphi?
Ответ 1
Этот проект содержит реализацию протокольных буферов для Delphi. Из проекта была реализована ограниченная функциональность, необходимая для конкретного проекта. В то время я не вижу смысла передавать весь код проекта. http://sourceforge.net/projects/protobuf-delphi/
Ответ 2
Здесь:
Базовые протоколы протоколов 4.00.01 (10 февраля 2013 г.)
Буферы протокола Google
Ответ 3
Возможно, вам лучше найти/создать мост С++/Delphi, а не повторять реализацию буферов протокола. Кодовая база довольно большая.
Ответ 4
Я нашел еще один в github. (разработан с февраля 2014 по июль 2016 года по состоянию на июнь 2017 года)
Кажется, что предварительная поддержка proto3.
Я еще не тестировал, но на сегодняшний день это может быть лучше.
https://github.com/stijnsanders/DelphiProtocolBuffer
EDIT: Я тестировал это, но, похоже, он написан в старом delphi, а не в формате unicode.
Я мог бы скомпилировать генератор (используя 10 Seattle), но скомпилированный exe не смог создать файл pas: - (
EDIT2:
Генератор кода работает только с заменой TStream на TStreamReader/Writer. Я подтвердил, что генератор может преобразовать недавний образец адресной книги.
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
Ответ 5
Интересно, что вы думаете об использовании JSON или BSON кажется, что работа продолжается) в качестве протокола.