Hoi,

Ik probeer een base64 encoded pdf die ik als TByteDynArray terugkrijg te decoderen en op te slaan in een blob in de database, maar ondanks vele pogingen en opzoekingen slaag ik er niet om een de pdf werkend te hebben.
Heeft iemand een idee wat ik fout doe? Ik heb nog niet zoveel ervaring met webservices.

De andere zaken uit het soap resultaat kan ik wel prima bewaren.

StatusResponse.vehicleHistoryReport.file_ is een TByteDynArray en moet dus gedecodeerd worden naar een TMemoryStream of TBlobStream zodat ik deze kan inlezen in de blob van de query.

Code:
   Var ResultStream: TMemoryStream;
       StringStream: TStringStream;
    ………


      qry_log.Append;
      qry_log.FieldByName('CP_STAMP').AsDateTime := Now;
      …..
      if Assigned(StatusResponse.vehicleHistoryReport) then
      begin
         qry_log.FieldByName('CP_REPORTFILE').AsString := StatusResponse.vehicleHistoryReport.fileName;
         qry_log.FieldByName('CP_REPORT_URL').AsString := StatusResponse.vehicleHistoryReport.publicUrl;
         try
            StringStream := TStringStream.Create;
            StringStream.Position := 0;
            ResultStream := TMemoryStream.Create;
            ResultStream.Position := 0;
            StringStream.Write(StatusResponse.vehicleHistoryReport.file_,
               Length(StatusResponse.vehicleHistoryReport.file_));
            TidDecoderMime.DecodeStream(StringStream.ReadString(StringStream.Size), ResultStream);
            ResultStream.Position := 0;
            TBlobField(qry_log.FieldByName('CP_REPORT')).LoadFromStream(ResultStream);
         finally
            ResultStream.Free;
            StringStream.Free;
         end;
      end;
      qry_log.Post;
Ziet iemand wat ik fout doe?