opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix memory leak: ExportStream was recreated for each table in export loop

Browse Source
This commit is contained in:
Ansgar Becker
2012-06-17 11:31:33 +00:00
parent f31867bd5c
commit 59e6e7710d
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/tabletools.pas
View File

@ -1149,12 +1149,15 @@ begin
ExportStream := TFileStream.Create(DbDir + DBObj.Name+'.sql', fmCreate or fmOpenWrite); ExportStream := TFileStream.Create(DbDir + DBObj.Name+'.sql', fmCreate or fmOpenWrite);
FHeaderCreated := False; FHeaderCreated := False;
end; end;
if ToFile and (not Assigned(ExportStream)) then if not Assigned(ExportStream) then begin
ExportStream := TFileStream.Create(comboExportOutputTarget.Text, fmCreate or fmOpenWrite); if ToFile then
if ToClipboard and (not Assigned(ExportStream)) then ExportStream := TFileStream.Create(comboExportOutputTarget.Text, fmCreate or fmOpenWrite);
ExportStream := TMemoryStream.Create; // ToDir handled above
if ToDb or ToServer then if ToClipboard then
ExportStream := TMemoryStream.Create; ExportStream := TMemoryStream.Create;
if ToDb or ToServer then
ExportStream := TMemoryStream.Create;
end;
if not FHeaderCreated then begin if not FHeaderCreated then begin
Header := '-- --------------------------------------------------------' + CRLF + Header := '-- --------------------------------------------------------' + CRLF +
Format('-- %-30s%s', ['Host:', DBObj.Connection.Parameters.HostName]) + CRLF + Format('-- %-30s%s', ['Host:', DBObj.Connection.Parameters.HostName]) + CRLF +