JSON 문자열을 이미지로 변환하는 방법은 무엇입니까?

Question

나는 JSON 배열에 이미지를 변환하는 응용 프로그램이 있고 나는 BLOB 필드로 저장 해요 :

function getImage(): String; 
var 
    memorystream : TMemoryStream; 
    jsonArray : TJSONArray; 

begin 
    memorystream := TMemoryStream.Create; 
    myImage.Picture.Graphic.SaveToStream(memorystream); 
    memorystream.Position := 0; 

    jsonArray := TJSONArray.Create; 
    jsonArray := TDBXJSONTools.StreamToJSON(memorystream, 0, memorystream.Size); 

    memorystream.Free; 

    Result := jsonArray.ToString; 
end; 

PNG 이미지의 convertion의 결과는 다음과 같습니다

[137,80,78,71,13,10,26,10,0,0, ... ] 

이 결과는이 코드로 다시 얻을 BLOB 필드에 저장됩니다 여기

stream := TStream.Create; 
stream := cdsPesquisa.CreateBlobStream(fieldAux, bmRead); 
stream.Position := 0; 

jsonArray := TJSONArray.Create; 
jsonArray := TDBXJSONTools.StreamToJSON(stream, 0, stream.Size); 

, 나는 처음에 같은 JSON 문자열 [137,80,78,71,13,10,26,10,0,0, ... ]이 하지만이 JSON 배열을 이미지로 다시 변환해야합니다.

어떻게하면됩니까?

Answer 1

Ken이 제안한 것처럼 JSON에 관한 모든 것을 잊어 버리고 blob 필드에 직접 쓰는 것이 가장 간단합니다.

저장

Stream := TMemoryStream.Create; 
try 
    myImage.Picture.Graphic.SaveToStream(Stream); 
    Stream.Position := 0; 
    fieldAux.LoadFromStream(Stream); 
finally 
    Stream.Free; 
end; 

당신은 JSON은 당신이 필요하다는 의견에 집요 표시

Stream := TMemoryStream.Create; 
try 
    fieldAux.SaveToStream(Stream); 
    Stream.Position := 0; 
    myImage.Picture.Graphic.LoadFromStream(Stream); 
finally 
    Stream.Free; 
end; 

---

로드. 나는 믿기가 힘듭니다. 어쨌든, 문자열에서 개최하여 JSON 배열에서 변환, 이미지에, 이렇게 : 본인이 아는 또한

jsonArray := TJSONObject.ParseJSONValue(jsonString) as TJSONArray; 
try 
    Stream := TDBXJSONTools.JSONToStream(jsonArray); 
    try 
    Stream.Position := 0; 
    myImage.Picture.Graphic.LoadFromStream(Stream); 
    finally 
    Stream.Free; 
    end; 
finally 
    jsonArray.Free; 
end; 

, 작동하지 않습니다 TDBXJSONTools.StreamToJSON를 호출하는 코드를. 빈 JSON 배열 객체를 생성합니다.

---

마지막으로 코드가 체로 새고 있습니다. 당신은 자신이 만든 물건을 자유롭게 할 필요가 없다는 오해가 있습니다. 또한 실수로 객체를 인스턴스화 한 다음 새 객체를 다른 객체로 덮어 쓰므로 첫 번째 객체가 새어 나옵니다. 내가 어떻게 객체를 만들고 코드와 비교하는지 살펴 보겠습니다. 예를 들면 다음과 같습니다

jsonArray := TJSONArray.Create ; 
jsonArray := TDBXJSONTools.StreamToJSON(memorystream , 0 , memorystream.Size) ; 

당신은 TJSONArray 객체를 인스턴스화하고 jsonArray에 해당 개체에 대한 참조를 저장합니다. 그 참조를 해방하는 것이 당신 직업입니다. 그러나 다음 줄에서 참조를 포기하면 StreamToJSON이 반환 한 새 객체에 대한 참조로 덮어 씁니다. 당신이 전혀 jsonArray을 결코 풀어주지 않으므로 하나가 아니라 두 개의 객체가 누출됩니다.

Delphi 수명 관리에 대한 기본적인 이해를 높이야합니다.