Scrittura di un flusso su una risorsa RCDATA

Question

In delphi, come si scrive un MemoryStream in una risorsa dati?

procedure StringtoRes (filename:string; Inputstream: TMemoryStream); 
var 
hUpdate: THandle; 
begin 
hUpdate := BeginUpdateResource(PChar(filename), True); 
UpdateResource(hUpdate, RT_RCDATA, 'ID', LANG_NEUTRAL,InputStream,InputStream.Size); 
EndUpdateResource(hUpdate,False); 
end; 

Questo codice mi dà una violazione di accesso e un intenso sentimento di inadeguatezza, perché io non so nemmeno da dove cominciare risolverlo. Qualcuno?

Answer 1

Nel parametro lpData di UpdateResource(), è necessario passare il valore della TMemoryStream.Memory proprietà invece del puntatore TMemoryStream oggetto, ad esempio:

procedure StringtoRes (const FileName: string; Inputstream: TMemoryStream); 
var 
    hUpdate: THandle; 
begin 
    hUpdate := BeginUpdateResource(PChar(FileName), True); 
    try 
    UpdateResource(hUpdate, RT_RCDATA, 'ID', LANG_NEUTRAL, InputStream.Memory, InputStream.Size); 
    finally 
    EndUpdateResource(hUpdate, False); 
    end; 
end;