mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
Wrap grid export code in a try/except block, so we can catch a potential "Cannot determine name of table" error, occurring while trying to get the WHERE clause for DELETEs. See http://www.heidisql.com/forum.php?t=21168
This commit is contained in:
Ansgar Becker
@ -482,475 +482,486 @@ begin
|
|||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Screen.Cursor := crHourglass;
|
try
|
||||||
|
Screen.Cursor := crHourglass;
|
||||||
|
|
||||||
SelectionOnly := grpSelection.ItemIndex = 0;
|
SelectionOnly := grpSelection.ItemIndex = 0;
|
||||||
Mainform.DataGridEnsureFullRows(Grid, SelectionOnly);
|
Mainform.DataGridEnsureFullRows(Grid, SelectionOnly);
|
||||||
GridData := Mainform.GridResult(Grid);
|
GridData := Mainform.GridResult(Grid);
|
||||||
if SelectionOnly then
|
if SelectionOnly then
|
||||||
NodeCount := Grid.SelectedCount
|
NodeCount := Grid.SelectedCount
|
||||||
else
|
else
|
||||||
NodeCount := Grid.RootNodeCount;
|
NodeCount := Grid.RootNodeCount;
|
||||||
MainForm.EnableProgress(NodeCount);
|
MainForm.EnableProgress(NodeCount);
|
||||||
TableName := BestTableName(GridData);
|
TableName := BestTableName(GridData);
|
||||||
ExcludeCol := NoColumn;
|
ExcludeCol := NoColumn;
|
||||||
if (not chkIncludeAutoIncrement.Checked) or (not chkIncludeAutoIncrement.Enabled) then
|
if (not chkIncludeAutoIncrement.Checked) or (not chkIncludeAutoIncrement.Enabled) then
|
||||||
ExcludeCol := GridData.AutoIncrementColumn;
|
ExcludeCol := GridData.AutoIncrementColumn;
|
||||||
|
|
||||||
if radioOutputCopyToClipboard.Checked then
|
if radioOutputCopyToClipboard.Checked then
|
||||||
Encoding := TEncoding.UTF8
|
Encoding := TEncoding.UTF8
|
||||||
else begin
|
else begin
|
||||||
Encoding := MainForm.GetEncodingByName(comboEncoding.Text);
|
Encoding := MainForm.GetEncodingByName(comboEncoding.Text);
|
||||||
// Add selected file to file list, and sort it onto the top of the list
|
// Add selected file to file list, and sort it onto the top of the list
|
||||||
i := FRecentFiles.IndexOf(editFilename.Text);
|
i := FRecentFiles.IndexOf(editFilename.Text);
|
||||||
if i > -1 then
|
if i > -1 then
|
||||||
FRecentFiles.Delete(i);
|
FRecentFiles.Delete(i);
|
||||||
FRecentFiles.Insert(0, editFilename.Text);
|
FRecentFiles.Insert(0, editFilename.Text);
|
||||||
for i:=FRecentFiles.Count-1 downto 10 do
|
for i:=FRecentFiles.Count-1 downto 10 do
|
||||||
FRecentFiles.Delete(i);
|
FRecentFiles.Delete(i);
|
||||||
end;
|
|
||||||
S := TStringStream.Create(Header, Encoding);
|
|
||||||
Header := '';
|
|
||||||
case ExportFormat of
|
|
||||||
efHTML: begin
|
|
||||||
Header :=
|
|
||||||
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ' + CRLF +
|
|
||||||
' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + CRLF + CRLF +
|
|
||||||
'<html>' + CRLF +
|
|
||||||
' <head>' + CRLF +
|
|
||||||
' <title>' + TableName + '</title>' + CRLF +
|
|
||||||
' <meta name="GENERATOR" content="'+ APPNAME+' '+Mainform.AppVersion + '">' + CRLF +
|
|
||||||
' <meta http-equiv="Content-Type" content="text/html; charset='+GetHTMLCharsetByEncoding(Encoding)+'" />' + CRLF +
|
|
||||||
' <style type="text/css">' + CRLF +
|
|
||||||
' thead tr {background-color: ActiveCaption; color: CaptionText;}' + CRLF +
|
|
||||||
' th, td {vertical-align: top; font-family: "'+Grid.Font.Name+'", Arial, Helvetica, sans-serif; font-size: '+IntToStr(Grid.Font.Size)+'pt; padding: '+IntToStr(Grid.TextMargin-1)+'px; }' + CRLF +
|
|
||||||
' table, td {border: 1px solid silver;}' + CRLF +
|
|
||||||
' table {border-collapse: collapse;}' + CRLF;
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
// Adjust preferred width of columns.
|
|
||||||
Header := Header +
|
|
||||||
' thead .col' + IntToStr(Col) + ' {width: ' + IntToStr(Grid.Header.Columns[Col].Width) + 'px;}' + CRLF;
|
|
||||||
// Right-justify all cells to match the grid on screen.
|
|
||||||
if Grid.Header.Columns[Col].Alignment = taRightJustify then
|
|
||||||
Header := Header + ' .col' + IntToStr(Col) + ' {text-align: right;}' + CRLF;
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Header := Header +
|
|
||||||
' </style>' + CRLF +
|
|
||||||
' </head>' + CRLF + CRLF +
|
|
||||||
' <body>' + CRLF + CRLF;
|
|
||||||
if chkIncludeQuery.Checked then
|
|
||||||
Header := Header + '<p style="font-family: monospace; white-space: pre;">' + GridData.SQL + '</p>' + CRLF + CRLF;
|
|
||||||
Header := Header + ' <table caption="' + TableName + ' (' + inttostr(NodeCount) + ' rows)">' + CRLF;
|
|
||||||
if chkIncludeColumnNames.Checked then begin
|
|
||||||
Header := Header +
|
|
||||||
' <thead>' + CRLF +
|
|
||||||
' <tr>' + CRLF;
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
if Col <> ExcludeCol then
|
|
||||||
Header := Header + ' <th class="col' + IntToStr(Col) + '">' + Grid.Header.Columns[Col].Text + '</th>' + CRLF;
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Header := Header +
|
|
||||||
' </tr>' + CRLF +
|
|
||||||
' </thead>' + CRLF;
|
|
||||||
end;
|
|
||||||
Header := Header +
|
|
||||||
' <tbody>' + CRLF;
|
|
||||||
end;
|
end;
|
||||||
|
S := TStringStream.Create(Header, Encoding);
|
||||||
efExcel, efCSV: begin
|
Header := '';
|
||||||
Separator := GridData.Connection.UnescapeString(editSeparator.Text);
|
|
||||||
Encloser := GridData.Connection.UnescapeString(editEncloser.Text);
|
|
||||||
Terminator := GridData.Connection.UnescapeString(editTerminator.Text);
|
|
||||||
if chkIncludeColumnNames.Checked then begin
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
// Alter column name in header if data is not raw.
|
|
||||||
if Col <> ExcludeCol then begin
|
|
||||||
Data := Grid.Header.Columns[Col].Text;
|
|
||||||
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
|
|
||||||
Data := 'HEX(' + Data + ')';
|
|
||||||
// Add header item.
|
|
||||||
if Header <> '' then
|
|
||||||
Header := Header + Separator;
|
|
||||||
Header := Header + Encloser + Data + Encloser;
|
|
||||||
end;
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Header := Header + Terminator;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efXML: begin
|
|
||||||
// Imitate mysqldump's XML style
|
|
||||||
Header := '<?xml version="1.0" encoding="'+MainForm.GetCharsetByEncoding(Encoding)+'"?>' + CRLF + CRLF;
|
|
||||||
if chkIncludeQuery.Checked then
|
|
||||||
Header := Header + '<resultset statement="'+HTMLSpecialChars(GridData.SQL)+'" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' + CRLF
|
|
||||||
else
|
|
||||||
Header := Header + '<table_data name="'+HTMLSpecialChars(TableName)+'">' + CRLF;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efLaTeX: begin
|
|
||||||
Header := '\begin{tabular}';
|
|
||||||
Separator := ' & ';
|
|
||||||
Encloser := '';
|
|
||||||
Terminator := '\\ '+CRLF;
|
|
||||||
Header := Header + '{';
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
if Col <> ExcludeCol then
|
|
||||||
Header := Header + ' c ';
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Header := Header + '}' + CRLF;
|
|
||||||
if chkIncludeColumnNames.Checked then begin
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
if Col <> ExcludeCol then
|
|
||||||
Header := Header + Grid.Header.Columns[Col].Text + Separator;
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Delete(Header, Length(Header)-Length(Separator)+1, Length(Separator));
|
|
||||||
Header := Header + Terminator;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efWiki: begin
|
|
||||||
Separator := ' || ';
|
|
||||||
Encloser := '';
|
|
||||||
Terminator := ' ||'+CRLF;
|
|
||||||
if chkIncludeColumnNames.Checked then begin
|
|
||||||
Header := '|| ';
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
if Col <> ExcludeCol then
|
|
||||||
Header := Header + '*' + Grid.Header.Columns[Col].Text + '*' + Separator;
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Delete(Header, Length(Header)-Length(Separator)+1, Length(Separator));
|
|
||||||
Header := Header + Terminator;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efPHPArray: begin
|
|
||||||
if radioOutputFile.Checked then
|
|
||||||
Header := '<?php'+CRLF+'$'+TableName+' = array('+CRLF
|
|
||||||
else
|
|
||||||
Header := '$'+TableName+' = array('+CRLF;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efMarkDown: begin
|
|
||||||
Separator := ' | ';
|
|
||||||
Encloser := '';
|
|
||||||
Terminator := CRLF;
|
|
||||||
Header := Header + TableName + CRLF + '---' + CRLF;
|
|
||||||
if chkIncludeQuery.Checked then
|
|
||||||
Header := Header + '```sql' + CRLF + GridData.SQL + CRLF + '```' + CRLF;
|
|
||||||
Header := Header + TrimLeft(Separator);
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
if Col <> ExcludeCol then begin
|
|
||||||
if chkIncludeColumnNames.Checked then
|
|
||||||
Header := Header + Grid.Header.Columns[Col].Text + Separator
|
|
||||||
else
|
|
||||||
Header := Header + Separator
|
|
||||||
end;
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Header := Header + Terminator;
|
|
||||||
// Write an extra line with dashes below the heading, otherwise the table won't parse
|
|
||||||
Header := Header + TrimLeft(Separator);
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
if Col <> ExcludeCol then begin
|
|
||||||
Header := Header + '-';
|
|
||||||
if GridData.DataType(Col).Category in [dtcInteger, dtcReal] then
|
|
||||||
Header := Header + ':';
|
|
||||||
Header := Header + Separator;
|
|
||||||
end;
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
|
||||||
end;
|
|
||||||
Header := Header + Terminator;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efJSON: begin
|
|
||||||
// JavaScript Object Notation
|
|
||||||
Header := '{' + CRLF;
|
|
||||||
if chkIncludeQuery.Checked then
|
|
||||||
Header := Header + #9 + '"query": "'+HTMLSpecialChars(GridData.SQL)+'",' + CRLF
|
|
||||||
else
|
|
||||||
Header := Header + #9 + '"table": "'+HTMLSpecialChars(TableName)+'",' + CRLF ;
|
|
||||||
Header := Header + #9 + '"rows":' + CRLF + #9 + '[';
|
|
||||||
end;
|
|
||||||
|
|
||||||
end;
|
|
||||||
S.WriteString(Header);
|
|
||||||
|
|
||||||
Node := GetNextNode(Grid, nil, SelectionOnly);
|
|
||||||
while Assigned(Node) do begin
|
|
||||||
// Update status once in a while.
|
|
||||||
if (Node.Index+1) mod 100 = 0 then begin
|
|
||||||
MainForm.ShowStatusMsg(f_('Exporting row %s of %s (%d%%, %s)',
|
|
||||||
[FormatNumber(Node.Index+1),
|
|
||||||
FormatNumber(NodeCount),
|
|
||||||
Trunc((Node.Index+1) / NodeCount *100),
|
|
||||||
FormatByteNumber(S.Size)]
|
|
||||||
));
|
|
||||||
MainForm.ProgressStep;
|
|
||||||
end;
|
|
||||||
RowNum := Grid.GetNodeData(Node);
|
|
||||||
GridData.RecNo := RowNum^;
|
|
||||||
|
|
||||||
// Row preamble
|
|
||||||
case ExportFormat of
|
case ExportFormat of
|
||||||
efHTML: tmp := ' <tr>' + CRLF;
|
efHTML: begin
|
||||||
|
Header :=
|
||||||
efXML: tmp := #9'<row>' + CRLF;
|
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ' + CRLF +
|
||||||
|
' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + CRLF + CRLF +
|
||||||
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
'<html>' + CRLF +
|
||||||
tmp := '';
|
' <head>' + CRLF +
|
||||||
if ExportFormat = efSQLDeleteInsert then begin
|
' <title>' + TableName + '</title>' + CRLF +
|
||||||
tmp := tmp + 'DELETE FROM ' + GridData.Connection.QuoteIdent(Tablename) + ' WHERE' + GridData.GetWhereClause + ';' + CRLF;
|
' <meta name="GENERATOR" content="'+ APPNAME+' '+Mainform.AppVersion + '">' + CRLF +
|
||||||
|
' <meta http-equiv="Content-Type" content="text/html; charset='+GetHTMLCharsetByEncoding(Encoding)+'" />' + CRLF +
|
||||||
|
' <style type="text/css">' + CRLF +
|
||||||
|
' thead tr {background-color: ActiveCaption; color: CaptionText;}' + CRLF +
|
||||||
|
' th, td {vertical-align: top; font-family: "'+Grid.Font.Name+'", Arial, Helvetica, sans-serif; font-size: '+IntToStr(Grid.Font.Size)+'pt; padding: '+IntToStr(Grid.TextMargin-1)+'px; }' + CRLF +
|
||||||
|
' table, td {border: 1px solid silver;}' + CRLF +
|
||||||
|
' table {border-collapse: collapse;}' + CRLF;
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
// Adjust preferred width of columns.
|
||||||
|
Header := Header +
|
||||||
|
' thead .col' + IntToStr(Col) + ' {width: ' + IntToStr(Grid.Header.Columns[Col].Width) + 'px;}' + CRLF;
|
||||||
|
// Right-justify all cells to match the grid on screen.
|
||||||
|
if Grid.Header.Columns[Col].Alignment = taRightJustify then
|
||||||
|
Header := Header + ' .col' + IntToStr(Col) + ' {text-align: right;}' + CRLF;
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
end;
|
end;
|
||||||
|
Header := Header +
|
||||||
if ExportFormat in [efSQLInsert, efSQLDeleteInsert] then
|
' </style>' + CRLF +
|
||||||
tmp := tmp + 'INSERT'
|
' </head>' + CRLF + CRLF +
|
||||||
else
|
' <body>' + CRLF + CRLF;
|
||||||
tmp := tmp + 'REPLACE';
|
if chkIncludeQuery.Checked then
|
||||||
tmp := tmp + ' INTO '+GridData.Connection.QuoteIdent(Tablename);
|
Header := Header + '<p style="font-family: monospace; white-space: pre;">' + GridData.SQL + '</p>' + CRLF + CRLF;
|
||||||
|
Header := Header + ' <table caption="' + TableName + ' (' + inttostr(NodeCount) + ' rows)">' + CRLF;
|
||||||
if chkIncludeColumnNames.Checked then begin
|
if chkIncludeColumnNames.Checked then begin
|
||||||
tmp := tmp + ' (';
|
Header := Header +
|
||||||
|
' <thead>' + CRLF +
|
||||||
|
' <tr>' + CRLF;
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
while Col > NoColumn do begin
|
while Col > NoColumn do begin
|
||||||
if Col <> ExcludeCol then
|
if Col <> ExcludeCol then
|
||||||
tmp := tmp + GridData.Connection.QuoteIdent(Grid.Header.Columns[Col].Text)+', ';
|
Header := Header + ' <th class="col' + IntToStr(Col) + '">' + Grid.Header.Columns[Col].Text + '</th>' + CRLF;
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
end;
|
end;
|
||||||
Delete(tmp, Length(tmp)-1, 2);
|
Header := Header +
|
||||||
tmp := tmp + ')';
|
' </tr>' + CRLF +
|
||||||
|
' </thead>' + CRLF;
|
||||||
end;
|
end;
|
||||||
tmp := tmp + ' VALUES (';
|
Header := Header +
|
||||||
|
' <tbody>' + CRLF;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
efWiki: tmp := TrimLeft(Separator);
|
efExcel, efCSV: begin
|
||||||
|
Separator := GridData.Connection.UnescapeString(editSeparator.Text);
|
||||||
efPHPArray: tmp := #9 + 'array( // row #'+FormatNumber(GridData.RecNo)+CRLF;
|
Encloser := GridData.Connection.UnescapeString(editEncloser.Text);
|
||||||
|
Terminator := GridData.Connection.UnescapeString(editTerminator.Text);
|
||||||
efMarkDown: tmp := '| ';
|
if chkIncludeColumnNames.Checked then begin
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
efJSON: begin
|
while Col > NoColumn do begin
|
||||||
if chkIncludeColumnNames.Checked then
|
// Alter column name in header if data is not raw.
|
||||||
tmp := CRLF + #9#9 + '{' + CRLF
|
if Col <> ExcludeCol then begin
|
||||||
else
|
Data := Grid.Header.Columns[Col].Text;
|
||||||
tmp := CRLF + #9#9 + '[' + CRLF
|
|
||||||
end
|
|
||||||
|
|
||||||
else tmp := '';
|
|
||||||
end;
|
|
||||||
|
|
||||||
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
|
||||||
while Col > NoColumn do begin
|
|
||||||
if Col <> ExcludeCol then begin
|
|
||||||
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
|
|
||||||
Data := GridData.HexValue(Col)
|
|
||||||
else
|
|
||||||
Data := GridData.Col(Col);
|
|
||||||
// Keep formatted numeric values
|
|
||||||
if (GridData.DataType(Col).Category in [dtcInteger, dtcReal])
|
|
||||||
and (ExportFormat in [efExcel, efHTML, efMarkDown]) then
|
|
||||||
Data := FormatNumber(Data, False);
|
|
||||||
|
|
||||||
case ExportFormat of
|
|
||||||
efHTML: begin
|
|
||||||
// Escape HTML control characters in data.
|
|
||||||
Data := HTMLSpecialChars(Data);
|
|
||||||
tmp := tmp + ' <td class="col' + IntToStr(Col) + '">' + Data + '</td>' + CRLF;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efExcel, efCSV, efLaTeX, efWiki, efMarkDown: begin
|
|
||||||
// Escape encloser characters inside data per de-facto CSV.
|
|
||||||
Data := StringReplace(Data, Encloser, Encloser+Encloser, [rfReplaceAll]);
|
|
||||||
if GridData.IsNull(Col) and (ExportFormat in [efExcel, efCSV, efMarkDown]) then
|
|
||||||
Data := editNull.Text
|
|
||||||
else
|
|
||||||
Data := Encloser + Data + Encloser;
|
|
||||||
tmp := tmp + Data + Separator;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efXML: begin
|
|
||||||
// Print cell start tag.
|
|
||||||
tmp := tmp + #9#9'<field';
|
|
||||||
if chkIncludeColumnNames.Checked then
|
|
||||||
tmp := tmp + ' name="' + HTMLSpecialChars(Grid.Header.Columns[Col].Text) + '"';
|
|
||||||
if GridData.IsNull(Col) then
|
|
||||||
tmp := tmp + ' xsi:nil="true" />' + CRLF
|
|
||||||
else begin
|
|
||||||
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
|
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
|
||||||
tmp := tmp + ' format="hex"';
|
Data := 'HEX(' + Data + ')';
|
||||||
tmp := tmp + '>' + HTMLSpecialChars(Data) + '</field>' + CRLF;
|
// Add header item.
|
||||||
|
if Header <> '' then
|
||||||
|
Header := Header + Separator;
|
||||||
|
Header := Header + Encloser + Data + Encloser;
|
||||||
end;
|
end;
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
end;
|
end;
|
||||||
|
Header := Header + Terminator;
|
||||||
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
|
||||||
if GridData.IsNull(Col) then
|
|
||||||
Data := 'NULL'
|
|
||||||
else if (GridData.DataType(Col).Index = dtBit) and GridData.Connection.Parameters.IsMySQL then
|
|
||||||
Data := 'b' + esc(Data)
|
|
||||||
else if (GridData.DataType(Col).Category in [dtcText, dtcTemporal, dtcOther])
|
|
||||||
or ((GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and Mainform.actBlobAsText.Checked)
|
|
||||||
then
|
|
||||||
Data := esc(Data)
|
|
||||||
else if Data = '' then
|
|
||||||
Data := esc(Data);
|
|
||||||
tmp := tmp + Data + ', ';
|
|
||||||
end;
|
|
||||||
|
|
||||||
efPHPArray: begin
|
|
||||||
if GridData.IsNull(Col) then
|
|
||||||
Data := 'NULL'
|
|
||||||
else case GridData.DataType(Col).Category of
|
|
||||||
dtcInteger, dtcReal: begin
|
|
||||||
// Remove zeropadding to avoid octal => integer conversion in PHP
|
|
||||||
Data := FormatNumber(Data);
|
|
||||||
Data := UnformatNumber(Data);
|
|
||||||
end;
|
|
||||||
else
|
|
||||||
Data := EscapePHP(Data);
|
|
||||||
end;
|
|
||||||
|
|
||||||
if chkIncludeColumnNames.Checked then
|
|
||||||
tmp := tmp + #9#9 + EscapePHP(Grid.Header.Columns[Col].Text) + ' => ' + Data + ','+CRLF
|
|
||||||
else
|
|
||||||
tmp := tmp + #9#9 + Data + ','+CRLF;
|
|
||||||
end;
|
|
||||||
|
|
||||||
efJSON: begin
|
|
||||||
tmp := tmp + #9#9#9;
|
|
||||||
if chkIncludeColumnNames.Checked then
|
|
||||||
tmp := tmp + '"'+HTMLSpecialChars(Grid.Header.Columns[Col].Text) + '": ';
|
|
||||||
if GridData.IsNull(Col) then
|
|
||||||
tmp := tmp + 'null,' +CRLF
|
|
||||||
else begin
|
|
||||||
case GridData.DataType(Col).Category of
|
|
||||||
dtcInteger, dtcReal:
|
|
||||||
tmp := tmp + data;
|
|
||||||
dtcBinary, dtcSpatial:
|
|
||||||
tmp := tmp + '"' + Data + '"';
|
|
||||||
else
|
|
||||||
tmp := tmp + '"' + HTMLSpecialChars(Data) + '"'
|
|
||||||
end;
|
|
||||||
tmp := tmp + ',' + CRLF;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
efXML: begin
|
||||||
|
// Imitate mysqldump's XML style
|
||||||
|
Header := '<?xml version="1.0" encoding="'+MainForm.GetCharsetByEncoding(Encoding)+'"?>' + CRLF + CRLF;
|
||||||
|
if chkIncludeQuery.Checked then
|
||||||
|
Header := Header + '<resultset statement="'+HTMLSpecialChars(GridData.SQL)+'" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' + CRLF
|
||||||
|
else
|
||||||
|
Header := Header + '<table_data name="'+HTMLSpecialChars(TableName)+'">' + CRLF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efLaTeX: begin
|
||||||
|
Header := '\begin{tabular}';
|
||||||
|
Separator := ' & ';
|
||||||
|
Encloser := '';
|
||||||
|
Terminator := '\\ '+CRLF;
|
||||||
|
Header := Header + '{';
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
if Col <> ExcludeCol then
|
||||||
|
Header := Header + ' c ';
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
|
end;
|
||||||
|
Header := Header + '}' + CRLF;
|
||||||
|
if chkIncludeColumnNames.Checked then begin
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
if Col <> ExcludeCol then
|
||||||
|
Header := Header + Grid.Header.Columns[Col].Text + Separator;
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
|
end;
|
||||||
|
Delete(Header, Length(Header)-Length(Separator)+1, Length(Separator));
|
||||||
|
Header := Header + Terminator;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efWiki: begin
|
||||||
|
Separator := ' || ';
|
||||||
|
Encloser := '';
|
||||||
|
Terminator := ' ||'+CRLF;
|
||||||
|
if chkIncludeColumnNames.Checked then begin
|
||||||
|
Header := '|| ';
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
if Col <> ExcludeCol then
|
||||||
|
Header := Header + '*' + Grid.Header.Columns[Col].Text + '*' + Separator;
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
|
end;
|
||||||
|
Delete(Header, Length(Header)-Length(Separator)+1, Length(Separator));
|
||||||
|
Header := Header + Terminator;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efPHPArray: begin
|
||||||
|
if radioOutputFile.Checked then
|
||||||
|
Header := '<?php'+CRLF+'$'+TableName+' = array('+CRLF
|
||||||
|
else
|
||||||
|
Header := '$'+TableName+' = array('+CRLF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efMarkDown: begin
|
||||||
|
Separator := ' | ';
|
||||||
|
Encloser := '';
|
||||||
|
Terminator := CRLF;
|
||||||
|
Header := Header + TableName + CRLF + '---' + CRLF;
|
||||||
|
if chkIncludeQuery.Checked then
|
||||||
|
Header := Header + '```sql' + CRLF + GridData.SQL + CRLF + '```' + CRLF;
|
||||||
|
Header := Header + TrimLeft(Separator);
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
if Col <> ExcludeCol then begin
|
||||||
|
if chkIncludeColumnNames.Checked then
|
||||||
|
Header := Header + Grid.Header.Columns[Col].Text + Separator
|
||||||
|
else
|
||||||
|
Header := Header + Separator
|
||||||
|
end;
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
|
end;
|
||||||
|
Header := Header + Terminator;
|
||||||
|
// Write an extra line with dashes below the heading, otherwise the table won't parse
|
||||||
|
Header := Header + TrimLeft(Separator);
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
if Col <> ExcludeCol then begin
|
||||||
|
Header := Header + '-';
|
||||||
|
if GridData.DataType(Col).Category in [dtcInteger, dtcReal] then
|
||||||
|
Header := Header + ':';
|
||||||
|
Header := Header + Separator;
|
||||||
|
end;
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
|
end;
|
||||||
|
Header := Header + Terminator;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efJSON: begin
|
||||||
|
// JavaScript Object Notation
|
||||||
|
Header := '{' + CRLF;
|
||||||
|
if chkIncludeQuery.Checked then
|
||||||
|
Header := Header + #9 + '"query": "'+HTMLSpecialChars(GridData.SQL)+'",' + CRLF
|
||||||
|
else
|
||||||
|
Header := Header + #9 + '"table": "'+HTMLSpecialChars(TableName)+'",' + CRLF ;
|
||||||
|
Header := Header + #9 + '"rows":' + CRLF + #9 + '[';
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
S.WriteString(Header);
|
||||||
|
|
||||||
|
Node := GetNextNode(Grid, nil, SelectionOnly);
|
||||||
|
while Assigned(Node) do begin
|
||||||
|
// Update status once in a while.
|
||||||
|
if (Node.Index+1) mod 100 = 0 then begin
|
||||||
|
MainForm.ShowStatusMsg(f_('Exporting row %s of %s (%d%%, %s)',
|
||||||
|
[FormatNumber(Node.Index+1),
|
||||||
|
FormatNumber(NodeCount),
|
||||||
|
Trunc((Node.Index+1) / NodeCount *100),
|
||||||
|
FormatByteNumber(S.Size)]
|
||||||
|
));
|
||||||
|
MainForm.ProgressStep;
|
||||||
|
end;
|
||||||
|
RowNum := Grid.GetNodeData(Node);
|
||||||
|
GridData.RecNo := RowNum^;
|
||||||
|
|
||||||
|
// Row preamble
|
||||||
|
case ExportFormat of
|
||||||
|
efHTML: tmp := ' <tr>' + CRLF;
|
||||||
|
|
||||||
|
efXML: tmp := #9'<row>' + CRLF;
|
||||||
|
|
||||||
|
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
||||||
|
tmp := '';
|
||||||
|
if ExportFormat = efSQLDeleteInsert then begin
|
||||||
|
tmp := tmp + 'DELETE FROM ' + GridData.Connection.QuoteIdent(Tablename) + ' WHERE' + GridData.GetWhereClause + ';' + CRLF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ExportFormat in [efSQLInsert, efSQLDeleteInsert] then
|
||||||
|
tmp := tmp + 'INSERT'
|
||||||
|
else
|
||||||
|
tmp := tmp + 'REPLACE';
|
||||||
|
tmp := tmp + ' INTO '+GridData.Connection.QuoteIdent(Tablename);
|
||||||
|
if chkIncludeColumnNames.Checked then begin
|
||||||
|
tmp := tmp + ' (';
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
if Col <> ExcludeCol then
|
||||||
|
tmp := tmp + GridData.Connection.QuoteIdent(Grid.Header.Columns[Col].Text)+', ';
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
|
end;
|
||||||
|
Delete(tmp, Length(tmp)-1, 2);
|
||||||
|
tmp := tmp + ')';
|
||||||
|
end;
|
||||||
|
tmp := tmp + ' VALUES (';
|
||||||
|
end;
|
||||||
|
|
||||||
|
efWiki: tmp := TrimLeft(Separator);
|
||||||
|
|
||||||
|
efPHPArray: tmp := #9 + 'array( // row #'+FormatNumber(GridData.RecNo)+CRLF;
|
||||||
|
|
||||||
|
efMarkDown: tmp := '| ';
|
||||||
|
|
||||||
|
efJSON: begin
|
||||||
|
if chkIncludeColumnNames.Checked then
|
||||||
|
tmp := CRLF + #9#9 + '{' + CRLF
|
||||||
|
else
|
||||||
|
tmp := CRLF + #9#9 + '[' + CRLF
|
||||||
|
end
|
||||||
|
|
||||||
|
else tmp := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
Col := Grid.Header.Columns.GetFirstVisibleColumn;
|
||||||
|
while Col > NoColumn do begin
|
||||||
|
if Col <> ExcludeCol then begin
|
||||||
|
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
|
||||||
|
Data := GridData.HexValue(Col)
|
||||||
|
else
|
||||||
|
Data := GridData.Col(Col);
|
||||||
|
// Keep formatted numeric values
|
||||||
|
if (GridData.DataType(Col).Category in [dtcInteger, dtcReal])
|
||||||
|
and (ExportFormat in [efExcel, efHTML, efMarkDown]) then
|
||||||
|
Data := FormatNumber(Data, False);
|
||||||
|
|
||||||
|
case ExportFormat of
|
||||||
|
efHTML: begin
|
||||||
|
// Escape HTML control characters in data.
|
||||||
|
Data := HTMLSpecialChars(Data);
|
||||||
|
tmp := tmp + ' <td class="col' + IntToStr(Col) + '">' + Data + '</td>' + CRLF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efExcel, efCSV, efLaTeX, efWiki, efMarkDown: begin
|
||||||
|
// Escape encloser characters inside data per de-facto CSV.
|
||||||
|
Data := StringReplace(Data, Encloser, Encloser+Encloser, [rfReplaceAll]);
|
||||||
|
if GridData.IsNull(Col) and (ExportFormat in [efExcel, efCSV, efMarkDown]) then
|
||||||
|
Data := editNull.Text
|
||||||
|
else
|
||||||
|
Data := Encloser + Data + Encloser;
|
||||||
|
tmp := tmp + Data + Separator;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efXML: begin
|
||||||
|
// Print cell start tag.
|
||||||
|
tmp := tmp + #9#9'<field';
|
||||||
|
if chkIncludeColumnNames.Checked then
|
||||||
|
tmp := tmp + ' name="' + HTMLSpecialChars(Grid.Header.Columns[Col].Text) + '"';
|
||||||
|
if GridData.IsNull(Col) then
|
||||||
|
tmp := tmp + ' xsi:nil="true" />' + CRLF
|
||||||
|
else begin
|
||||||
|
if (GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and (not Mainform.actBlobAsText.Checked) then
|
||||||
|
tmp := tmp + ' format="hex"';
|
||||||
|
tmp := tmp + '>' + HTMLSpecialChars(Data) + '</field>' + CRLF;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
||||||
|
if GridData.IsNull(Col) then
|
||||||
|
Data := 'NULL'
|
||||||
|
else if (GridData.DataType(Col).Index = dtBit) and GridData.Connection.Parameters.IsMySQL then
|
||||||
|
Data := 'b' + esc(Data)
|
||||||
|
else if (GridData.DataType(Col).Category in [dtcText, dtcTemporal, dtcOther])
|
||||||
|
or ((GridData.DataType(Col).Category in [dtcBinary, dtcSpatial]) and Mainform.actBlobAsText.Checked)
|
||||||
|
then
|
||||||
|
Data := esc(Data)
|
||||||
|
else if Data = '' then
|
||||||
|
Data := esc(Data);
|
||||||
|
tmp := tmp + Data + ', ';
|
||||||
|
end;
|
||||||
|
|
||||||
|
efPHPArray: begin
|
||||||
|
if GridData.IsNull(Col) then
|
||||||
|
Data := 'NULL'
|
||||||
|
else case GridData.DataType(Col).Category of
|
||||||
|
dtcInteger, dtcReal: begin
|
||||||
|
// Remove zeropadding to avoid octal => integer conversion in PHP
|
||||||
|
Data := FormatNumber(Data);
|
||||||
|
Data := UnformatNumber(Data);
|
||||||
|
end;
|
||||||
|
else
|
||||||
|
Data := EscapePHP(Data);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if chkIncludeColumnNames.Checked then
|
||||||
|
tmp := tmp + #9#9 + EscapePHP(Grid.Header.Columns[Col].Text) + ' => ' + Data + ','+CRLF
|
||||||
|
else
|
||||||
|
tmp := tmp + #9#9 + Data + ','+CRLF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
efJSON: begin
|
||||||
|
tmp := tmp + #9#9#9;
|
||||||
|
if chkIncludeColumnNames.Checked then
|
||||||
|
tmp := tmp + '"'+HTMLSpecialChars(Grid.Header.Columns[Col].Text) + '": ';
|
||||||
|
if GridData.IsNull(Col) then
|
||||||
|
tmp := tmp + 'null,' +CRLF
|
||||||
|
else begin
|
||||||
|
case GridData.DataType(Col).Category of
|
||||||
|
dtcInteger, dtcReal:
|
||||||
|
tmp := tmp + data;
|
||||||
|
dtcBinary, dtcSpatial:
|
||||||
|
tmp := tmp + '"' + Data + '"';
|
||||||
|
else
|
||||||
|
tmp := tmp + '"' + HTMLSpecialChars(Data) + '"'
|
||||||
|
end;
|
||||||
|
tmp := tmp + ',' + CRLF;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Col := Grid.Header.Columns.GetNextVisibleColumn(Col);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Row epilogue
|
||||||
|
case ExportFormat of
|
||||||
|
efHTML:
|
||||||
|
tmp := tmp + ' </tr>' + CRLF;
|
||||||
|
efExcel, efCSV, efLaTeX, efWiki: begin
|
||||||
|
Delete(tmp, Length(tmp)-Length(Separator)+1, Length(Separator));
|
||||||
|
tmp := tmp + Terminator;
|
||||||
|
end;
|
||||||
|
efXML:
|
||||||
|
tmp := tmp + #9'</row>' + CRLF;
|
||||||
|
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
||||||
|
Delete(tmp, Length(tmp)-1, 2);
|
||||||
|
tmp := tmp + ');' + CRLF;
|
||||||
|
end;
|
||||||
|
efPHPArray:
|
||||||
|
tmp := tmp + #9 + '),' + CRLF;
|
||||||
|
efMarkDown:
|
||||||
|
tmp := tmp + Terminator;
|
||||||
|
efJSON: begin
|
||||||
|
Delete(tmp, length(tmp)-2,2);
|
||||||
|
if chkIncludeColumnNames.Checked then
|
||||||
|
tmp := tmp + #9#9 + '},'
|
||||||
|
else
|
||||||
|
tmp := tmp + #9#9 + '],';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
S.WriteString(tmp);
|
||||||
|
|
||||||
|
Node := GetNextNode(Grid, Node, SelectionOnly);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
// Row epilogue
|
// Footer
|
||||||
case ExportFormat of
|
case ExportFormat of
|
||||||
efHTML:
|
efHTML: begin
|
||||||
tmp := tmp + ' </tr>' + CRLF;
|
tmp :=
|
||||||
efExcel, efCSV, efLaTeX, efWiki: begin
|
' </tbody>' + CRLF +
|
||||||
Delete(tmp, Length(tmp)-Length(Separator)+1, Length(Separator));
|
' </table>' + CRLF + CRLF +
|
||||||
tmp := tmp + Terminator;
|
' <p>' + CRLF +
|
||||||
|
' <em>generated ' + DateToStr(now) + ' ' + TimeToStr(now) +
|
||||||
|
' by <a href="'+APPDOMAIN+'">' + APPNAME + ' ' + Mainform.AppVersion + '</a></em>' + CRLF +
|
||||||
|
' </p>' + CRLF + CRLF +
|
||||||
|
' </body>' + CRLF +
|
||||||
|
'</html>' + CRLF;
|
||||||
end;
|
end;
|
||||||
efXML:
|
efXML: begin
|
||||||
tmp := tmp + #9'</row>' + CRLF;
|
if chkIncludeQuery.Checked then
|
||||||
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
tmp := '</resultset>' + CRLF
|
||||||
Delete(tmp, Length(tmp)-1, 2);
|
|
||||||
tmp := tmp + ');' + CRLF;
|
|
||||||
end;
|
|
||||||
efPHPArray:
|
|
||||||
tmp := tmp + #9 + '),' + CRLF;
|
|
||||||
efMarkDown:
|
|
||||||
tmp := tmp + Terminator;
|
|
||||||
efJSON: begin
|
|
||||||
Delete(tmp, length(tmp)-2,2);
|
|
||||||
if chkIncludeColumnNames.Checked then
|
|
||||||
tmp := tmp + #9#9 + '},'
|
|
||||||
else
|
else
|
||||||
tmp := tmp + #9#9 + '],';
|
tmp := '</table_data>' + CRLF;
|
||||||
end;
|
end;
|
||||||
|
efLaTeX:
|
||||||
|
tmp := '\end{tabular}' + CRLF;
|
||||||
|
efPHPArray: begin
|
||||||
|
tmp := ');' + CRLF;
|
||||||
|
if radioOutputFile.Checked then
|
||||||
|
tmp := tmp + '?>';
|
||||||
|
end;
|
||||||
|
efJSON: begin
|
||||||
|
S.Size := S.Size - 1;
|
||||||
|
tmp := CRLF + #9 + ']' + CRLF + '}';
|
||||||
|
end;
|
||||||
|
else
|
||||||
|
tmp := '';
|
||||||
end;
|
end;
|
||||||
S.WriteString(tmp);
|
S.WriteString(tmp);
|
||||||
|
|
||||||
Node := GetNextNode(Grid, Node, SelectionOnly);
|
if radioOutputCopyToClipboard.Checked then begin
|
||||||
end;
|
HTML := nil;
|
||||||
|
// SynEdit's exporter is slow on large strings, see issue #2903
|
||||||
// Footer
|
if S.Size < 100*SIZE_KB then begin
|
||||||
case ExportFormat of
|
case ExportFormat of
|
||||||
efHTML: begin
|
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
||||||
tmp :=
|
Exporter := TSynExporterHTML.Create(Self);
|
||||||
' </tbody>' + CRLF +
|
Exporter.Highlighter := MainForm.SynSQLSyn1;
|
||||||
' </table>' + CRLF + CRLF +
|
Exporter.ExportAll(Explode(CRLF, S.DataString));
|
||||||
' <p>' + CRLF +
|
HTML := TMemoryStream.Create;
|
||||||
' <em>generated ' + DateToStr(now) + ' ' + TimeToStr(now) +
|
Exporter.SaveToStream(HTML);
|
||||||
' by <a href="'+APPDOMAIN+'">' + APPNAME + ' ' + Mainform.AppVersion + '</a></em>' + CRLF +
|
Exporter.Free;
|
||||||
' </p>' + CRLF + CRLF +
|
end;
|
||||||
' </body>' + CRLF +
|
efHTML: HTML := S;
|
||||||
'</html>' + CRLF;
|
end;
|
||||||
end;
|
end;
|
||||||
efXML: begin
|
StreamToClipboard(S, HTML, (ExportFormat=efHTML) and (HTML <> nil));
|
||||||
if chkIncludeQuery.Checked then
|
end else begin
|
||||||
tmp := '</resultset>' + CRLF
|
try
|
||||||
else
|
S.SaveToFile(Filename);
|
||||||
tmp := '</table_data>' + CRLF;
|
except
|
||||||
end;
|
on E:EFCreateError do begin
|
||||||
efLaTeX:
|
// Keep form open if file cannot be created
|
||||||
tmp := '\end{tabular}' + CRLF;
|
ModalResult := mrNone;
|
||||||
efPHPArray: begin
|
MainForm.SetProgressState(pbsError);
|
||||||
tmp := ');' + CRLF;
|
ErrorDialog(E.Message);
|
||||||
if radioOutputFile.Checked then
|
|
||||||
tmp := tmp + '?>';
|
|
||||||
end;
|
|
||||||
efJSON: begin
|
|
||||||
S.Size := S.Size - 1;
|
|
||||||
tmp := CRLF + #9 + ']' + CRLF + '}';
|
|
||||||
end;
|
|
||||||
else
|
|
||||||
tmp := '';
|
|
||||||
end;
|
|
||||||
S.WriteString(tmp);
|
|
||||||
|
|
||||||
if radioOutputCopyToClipboard.Checked then begin
|
|
||||||
HTML := nil;
|
|
||||||
// SynEdit's exporter is slow on large strings, see issue #2903
|
|
||||||
if S.Size < 100*SIZE_KB then begin
|
|
||||||
case ExportFormat of
|
|
||||||
efSQLInsert, efSQLReplace, efSQLDeleteInsert: begin
|
|
||||||
Exporter := TSynExporterHTML.Create(Self);
|
|
||||||
Exporter.Highlighter := MainForm.SynSQLSyn1;
|
|
||||||
Exporter.ExportAll(Explode(CRLF, S.DataString));
|
|
||||||
HTML := TMemoryStream.Create;
|
|
||||||
Exporter.SaveToStream(HTML);
|
|
||||||
Exporter.Free;
|
|
||||||
end;
|
end;
|
||||||
efHTML: HTML := S;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
StreamToClipboard(S, HTML, (ExportFormat=efHTML) and (HTML <> nil));
|
|
||||||
end else begin
|
|
||||||
try
|
|
||||||
S.SaveToFile(Filename);
|
|
||||||
except
|
|
||||||
on E:EFCreateError do begin
|
|
||||||
// Keep form open if file cannot be created
|
|
||||||
ModalResult := mrNone;
|
|
||||||
MainForm.SetProgressState(pbsError);
|
|
||||||
ErrorDialog(E.Message);
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Mainform.ShowStatusMsg(_('Freeing data...'));
|
||||||
|
FreeAndNil(S);
|
||||||
|
|
||||||
|
except
|
||||||
|
// Whole export code wrapped here
|
||||||
|
on E:EDatabaseError do begin
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
ErrorDialog(E.Message);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
raise;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Mainform.DisableProgress;
|
Mainform.DisableProgress;
|
||||||
Mainform.ShowStatusMsg(_('Freeing data...'));
|
|
||||||
FreeAndNil(S);
|
|
||||||
Mainform.ShowStatusMsg;
|
Mainform.ShowStatusMsg;
|
||||||
Screen.Cursor := crDefault;
|
Screen.Cursor := crDefault;
|
||||||
end;
|
end;
|
||||||
|
|||||||
Reference in New Issue
Block a user