이전 버전에서 최신 버전으로의 TStringList 백업 호환성

Question

TStringList를 사용하는 백업 시스템이 있지만 오래된 Delphi (Ansi 문자열)로 코딩합니다. 내가 저장할 때

기본적으로 나는이 있습니다

... 
MyStringList.SaveToStream(Str); 
StrSz := Str.Size; 
MyBackupStream.Write(StrSz, SizeOf(Integer)); 
MyBackupStream.Write(Str.Memory^, StrSz); 
... 

을 그리고 난 다시로드 할 때 :

... 
MyBackupStream.Read(StrSz, SizeOf(Integer)); 
Str.SetSize(StrSz); 
MyBackupStream.Read(Str.Memory^, StrSz); 
MyStringList.SetText := PChar(Str.Memory); 
... 

내가 (+ datasize 바이트, 다음 크기 + datasize 바이트 등 크기)이 순차적를 사용하는 시스템 다양한 구성 요소 백업. 사실 일부 물건은 항상 문자열 목록 백업 전에 '읽혀 지거나'읽혀지기 때문에 (StringList 백업 전후에 일부 데이터가 있음을 의미합니다).

여기에서 큰 문제를 소개합니까 (현대 델파이 버전으로 전환 할 경우를 대비하여)? 청크는 차후 delphi 버전에서 캐스팅 할 수 있습니까? (전환 할 경우?) 백업 헤더에 문자열 버전을 작성해야합니까?

불행히도 나는 이것을 테스트 할 수 없습니다. 필자는 최소한 헤더에 문자열 인코딩 유형을 쓰면 나중에 올바른 방식으로 캐스팅 할 수 있다고 생각합니다. 델파이 버전이 무엇이든 상관 없습니까?

Answer 1

MyStringList.Text := PChar(Str.Memory) 대신 MyStringList.LoadFromStream(Str)을 사용하십시오.

먼저 TStream 데이터는 null로 끝나지 않지만 null 터미네이터가 필요한 방식으로 PChar을 사용합니다 (이 경우 문자열 변수를 사용하여 SetString()을 사용할 수 있습니다).

둘째, D2009 년부터 String 지금 UnicodeString 대신 AnsiString하고 PChar 지금 PWideChar 대신 PAnsiChar입니다. TStream 데이터는 유니 코드 대신 Ansi입니다 (SaveToStream()은 기본값으로 TEncoding.Default을 사용하므로 스트림 데이터를 인코딩하는 데 Ansi이므로) 데이터를 PWideChar으로 전송하면 TStringList에 가비지가 할당됩니다. 모든 버전에서

, 당신은 LoadFromStream()을 사용해야하지만 다음 Text 속성을 설정 고수 할 경우 모든 버전에서 작동하는, 이런 식으로 작업을 수행해야합니다

var 
    ... 
    S: AnsiString; 
begin 
    ... 
    MyBackupStream.ReadBuffer(StrSz, SizeOf(Integer)); 
    Str.SetSize(StrSz); 
    if StrSz > 0 then MyBackupStream.ReadBuffer(Str.Memory^, StrSz); 
    SetString(S, PAnsiChar(Str.Memory), StrSz); 
    MyStringList.Text := String(S); 
    ... 
end; 

또는이 :

var 
    ... 
    S: AnsiString; 
begin 
    ... 
    MyBackupStream.ReadBuffer(StrSz, SizeOf(Integer)); 
    if StrSz > 0 then begin 
    SetLength(S, StrSz); 
    MyBackupStream.ReadBuffer(S[1], StrSz); 
    end; 
    MyStringList.Text := String(S); 
    ... 
end; 

또는이 :

var 
    ... 
    Str: TStringStream; 
begin 
    ... 
    Str := TStringStream.Create; 
    try 
    MyBackupStream.ReadBuffer(StrSz, SizeOf(Integer)); 
    if StrSz > 0 then Str.CopyFrom(MyBackupStream, StrSz); 
    MyStringList.Text := Str.DataString; 
    finally 
    Str.Free; 
    end; 
    ... 
end; 

마지막으로, 당신이해야 C 더 나은 미래의 호환성을 위해 Ansi 대신 UTF-8을 사용하도록 스트림 데이터를 변경하는 onsider.SaveToStream()과 LoadFromStream()은 모두 D2009 +에서 선택적 TEncoding 매개 변수를 가지며 UTF-8은 무손실 유니 코드 인코딩이며 Ansi는 Ansi/Unicode 변환 중에 손실 데이터가 될 수 있습니다. 기존 데이터가 ASCII 인 경우 (AnsiChar # 127 이상) UTF-8은 ASCII와 100 % 역 호환됩니다. 그러나 데이터가 Ansi 인 경우 (AnsiChar 자 # 127 이상), 이전 형식과 최신 형식을 구별 할 수 있도록 헤더 형식/버전 추가 등의 방법으로 스트림 형식을 변경하는 것이 가장 좋습니다. Ansi를 사용하여 이전 형식을로드하고 유니 코드/UTF-8을 사용하여 최신 형식을 저장 /로드합니다.

Answer 2

나는 당신이 올바른 길에 있다고 생각합니다. 몇 년 전, 나는 당신이했던 것과 비슷한 일을 끝냈습니다. 나는 각 척의 데이터에 대해 헤더와 내용이라는 두 개의 섹션을 가지고있다. 헤더에는 시작 주소 및 청크 길이와 같은 정보가 들어 있습니다. 콘텐츠 부분에는 실제 데이터가 포함되어 있습니다. 이 접근법은 전혀 문제가 없었습니다. 귀하의 경우 헤더는 블록의 크기 만 포함합니다. 문자열의 버전 번호에 관해서는 Delphi의 릴리스로드를 기반으로 새 릴리스가 이전 릴리스와 호환되지 않는 것이 일반적이라는 점에서 권장합니다. 나중에 버전 번호를 사용할 필요가 없더라도 해를 끼치 지 않습니다.