用用向導建一個datasnap rest服務端,服務端寫一個方法用來回傳記憶體流,代碼如下
function TServerMethods.DownLoadFile(AFileName: string): TMemoryStream;
begin
if FileExists(AFileName) then
begin
Result := TMemoryStream.Create;
Result.LoadFromFile(AFileName);
end;
end;
再建一個vcl app 用idhttp來呼叫這個方法,當idhttp下載完畢這個檔案后,居然這個服務端模塊不會釋放。如果服務端的方法是回傳簡單資料型別,比如integer,string等,客戶端呼叫結束后,服務端模塊是會自動釋放的。server設定為Invocation。如果誰有環境,幫我測驗下,或者告訴我解決方法。xe5和xe6均如此
uj5u.com熱心網友回復:
咦,怎么沒人呢轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/107259.html
標籤:VCL組件開發及應用
