ใครสามารถช่วยได้บ้าง? ฉันกำลังเก็บโปรเจ็กต์ Delphi7 เก่าไว้และมีปัญหาครั้งต่อไป ฉันจะเก็บค่าฟิลด์ BLOB ได้อย่างไรหากมีสตริง Unicode ฉันเหนื่อย:
var
str: WideString;
begin
...
str := WideString(Fields[1].AsString); - but I get empty string
...
...
str := VarToWideStr(Fields[1].AsVariant); - but I get "(BLOB)" result in str varible.
...
end;
โซลูชันของฉัน: การใช้รหัส:
...
stream := TMemoryStream.Create;
try
Fields[1].SaveToStream(stream);
ss := MemStreamToWStr(stream);
finally
stream.Destroy;
end;
...
และฟังก์ชั่น:
function TSnsFrame.MemStreamToWStr(Mstream: TMemoryStream): WideString;
begin
Mstream.Seek(0, soFromBeginning);
SetLength(Result, Mstream.size div 2);
MStream.ReadBuffer(Result[1], Mstream.size);
end;