Delphi 서열화, 반서열화, 직렬화, 지속화
function
ComponentToStr(AComponent: TComponent):
string
;
var
BinStream: TMemoryStream;
StrStream: TStringStream;
s:
string
;
begin
BinStream := TMemoryStream
.
Create;
try
StrStream := TStringStream
.
Create(s);
try
BinStream
.
WriteComponent(AComponent);
BinStream
.
Seek(
0
, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream
.
Seek(
0
, soFromBeginning);
Result := StrStream
.
DataString;
finally
StrStream
.
Free;
end
;
finally
BinStream
.
Free
end
;
end
;
function
StrToComponent(
const
Value:
string
;
Instance: TComponent): TComponent;
var
StrStream: TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream
.
Create(Value);
try
BinStream := TMemoryStream
.
Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream
.
Seek(
0
, soFromBeginning);
Result := BinStream
.
ReadComponent(Instance);
finally
BinStream
.
Free;
end
;
finally
StrStream
.
Free;
end
;
end
;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Java 정렬화 및 반정렬화 인스턴스 상세 정보Java 정렬화 및 반정렬화 인스턴스 상세 정보 분포식 응용에서 대상은 서열화를 거쳐야만 각 분포식 구성 요소 사이에서 전송할 수 있다. 이것은 두 가지 측면의 기술인 송신자가 대상을 서열화하고 수용자가 대상을 반서...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.