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

Bugfix: Get rid of chinese characters when loading a file into a field. The file is now considered binary data, and will be typecast to whatever character set the column imported into has.

Browse Source 
To correctly import files, the user needs to first find out which character set the file is (using eg the unix 'file' utility, or whatever), then change the column charset in the table to match that type, then finally use 'insert files into fields' to insert the file contents.
This commit is contained in:
rosenfield.albert
2009-02-12 15:17:12 +00:00
parent 9f9a1c77ab
commit 072280059a
1 changed files with 24 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
source/insertfiles_progress.pas
View File

@ -51,6 +51,9 @@ procedure TfrmInsertFilesProgress.ProcessFiles(Sender: TObject);
raise exception.Create(msg);
end;
const
ChunkSize = 131072;
var
i, j: Integer;
value, filename: String;
@ -58,6 +61,10 @@ var
y, m, d, h, mi, s, ms: Word;
FileStream: TFileStream;
zq: TDeferDataSet;
zqSqlIdx: Integer;
readBuf: String;
bytesRead: Integer;
data: WideString;
begin
Timer1.Enabled := false;
screen.Cursor := crHourglass;
@ -89,7 +96,7 @@ begin
continue;
zq.SQL.Add( ', ' + mainform.mask(cols[j].Name) );
end;
zq.SQL.Add( ') VALUES (:STREAM, ' );
zqSqlIdx := zq.SQL.Add( ') VALUES (:STREAM, ' );
for j:=0 to length(cols)-1 do
begin
@ -120,9 +127,22 @@ begin
lblOperation.Repaint;
FileStream := TFileStream.Create( filename, fmShareDenyWrite );
try
zq.Params.Clear;
zq.Params.CreateParam( ftBlob, 'STREAM', ptInput );
zq.ParamByName('STREAM').LoadfromStream( FileStream, ftBlob );
data := '_binary 0x';
while FileStream.Position < FileStream.Size do begin
// Read characters from file.
// Data is imported as-is (byte for byte).
// How the server interprets the data is decided by the
// character set on the column that is imported into.
// Set the character set on the column before importing the file.
//
// TODO: Indicate this character set on the GUI.
//
SetLength(readBuf, ChunkSize div SizeOf(Char));
bytesRead := FileStream.Read(PChar(readBuf)^, ChunkSize);
SetLength(readBuf, bytesRead div SizeOf(Char));
data := data + BinToWideHex(readBuf);
end;
zq.SQL[zqSqlIdx] := StringReplace(zq.SQL[zqSqlIdx], ':STREAM', data, []);
finally
FileStream.Free;
end;