有用MyDAC连MySQL的Text或BLOB遭遇32KB文本超大难题的吗？

Question

编一个资料库系统，客户强调采用UTF-8编码。
以配合以后的Web系统。
结果发现只有MyDAC支持UTF-8和Unicode。
但是在开发过程中发现，Memo或RichEdit中，
超过32KB的文本，无法存入MySQL数据库，
字段类型无论采用Text,Longtext,blob,longblob都不成。
怀疑是MyDAC本身的问题，用其附带的Text例子，也一样不能超出32KB。
特征解决方案。

Answer 1

我试过没问题
1.建表:
  Create table t1 (a longtest);
2.写数据:
procedure TForm1.Button1Click(Sender: TObject);
begin
   with mySQLQuery1 do
   begin
      SQL.Text:='insert into t1 values(:ltext)';
      Params.ParamByName('ltext').LoadFromFile('D:\t.txt',ftMemo); //t.txt为82K文本文件
      ExecSQL;
   end;
end;3.读数据:
var
  t:TMemoryStream;
begin
   t:=TMemoryStream.Create;
   with mySQLQuery1 do
   begin
      SQL.Text:='select * from t1';
      Open;
      (FieldByName('a') as TMemoField).SaveToStream(t);
      t.Position:=0;
      Memo1.Lines.LoadFromStream(t);
   end;
   t.Free;
end;

Answer 2

我采用的是Table.Append，结果就是没有通过。没想到去试Query。
因为columns太多了，用query太麻烦。
用的MyDAC是MySQL Data Access Components 4.4
不是Scibit MyComponent，
Scibit MyComponent对UTF-8支持不行。

Answer 3

用Query还是一样啊，
Access violation at address 00403287 in module 'DBMan.exe', Read of address 001338B4

Answer 4

PS.MySQL Server是 5.0版的，测试服务器是Win32版本的，
会不会有问题？

Answer 5

应该与版本没关系(我也用5.0的).
开发C/S结构,除桌面数据库以外(fox/access等)尽量不要用table的方法.要用sql来对数据库操作,对于longtext/blob字段,要用Stream方式
你的
Access violation at address 00403287 in module 'DBMan.exe', Read of address 001338B4
错,要查你的程序是否有内存溢出
另外,你可先写一段测试程序(如我上面的)看看是否为控件的问题

Answer 6

我只用Table作Append，
Update和Del都用Query。
因为column太多了。试过了，也一样。
看来是控件的问题。
MySQL Data Access Components 4.4
自带的Demos，
用DBGrid+DBNav，写入也是一样的错误。Demo源码：Main.dfmobject fmMain: TfmMain
  Left = 245
  Top = 151
  Caption = 'MySQL Data Access Demo - TEXT fields'
  ClientHeight = 410
  ClientWidth = 593
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 233
    Width = 593
    Height = 2
    Cursor = crVSplit
    Align = alTop
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 25
    Width = 593
    Height = 182
    Align = alTop
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 593
    Height = 25
    Align = alTop
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 362
      Top = 2
      Width = 16
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object btOpen: TButton
      Left = 0
      Top = 2
      Width = 70
      Height = 22
      Caption = 'Open'
      TabOrder = 0
      OnClick = btOpenClick
    end
    object btClose: TButton
      Left = 70
      Top = 2
      Width = 69
      Height = 22
      Caption = 'Close'
      TabOrder = 2
      OnClick = btCloseClick
    end
    object DBNavigator: TDBNavigator
      Left = 139
      Top = 2
      Width = 220
      Height = 22
      DataSource = DataSource
      TabOrder = 1
    end
    object btCreate: TButton
      Left = 451
      Top = 2
      Width = 69
      Height = 22
      Caption = 'Create'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btCreateClick
    end
    object btDrop: TButton
      Left = 520
      Top = 2
      Width = 70
      Height = 22
      Caption = 'Drop'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btDropClick
    end
  end
  object meComments: TDBMemo
    Left = 0
    Top = 235
    Width = 593
    Height = 175
    Align = alClient
    DataField = 'TextField'
    DataSource = DataSource
    MaxLength = 65535
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 207
    Width = 593
    Height = 26
    ButtonHeight = 24
    EdgeInner = esNone
    EdgeOuter = esNone
    TabOrder = 3
    object btLoad: TButton
      Left = 0
      Top = 0
      Width = 75
      Height = 24
      Caption = 'Load from file'
      TabOrder = 0
      OnClick = btLoadClick
    end
    object btSave: TButton
      Left = 75
      Top = 0
      Width = 75
      Height = 24
      Caption = 'Save to file'
      TabOrder = 1
      OnClick = btSaveClick
    end
    object ToolButton2: TToolButton
      Left = 150
      Top = 0
      Width = 25
      Caption = 'ToolButton2'
      Style = tbsSeparator
    end
    object btClear: TButton
      Left = 175
      Top = 0
      Width = 75
      Height = 24
      Caption = 'Clear'
      TabOrder = 2
      OnClick = btClearClick
    end
  end
  object MyConnection: TMyConnection
    Database = 'test'
    IsolationLevel = ilSerializable
    Options.UseUnicode = True
    Options.Charset = 'utf8'
    Options.KeepDesignConnected = False
    Username = 'root'
    Password = 'xcvuht8m98qy'
    Server = 'localhost'
    ConnectDialog = ConnectDialog
    LoginPrompt = False
    Left = 344
    Top = 32
  end
  object DataSource: TDataSource
    DataSet = Query
    Left = 440
    Top = 32
  end
  object ConnectDialog: TMyConnectDialog
    DatabaseLabel = 'Database'
    PortLabel = 'Port'
    SavePassword = True
    Caption = 'Connect'
    UsernameLabel = 'User Name'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    Left = 376
    Top = 32
  end
  object Query: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO MYDAC_Text'
      '  (MYDAC_Text.Name, MYDAC_Text.TextField)'
      'VALUES'
      '  (:Name, :TextField)')
    SQLDelete.Strings = (
      'DELETE FROM MYDAC_Text'
      'WHERE'
      '  UID = :Old_UID')
    SQLUpdate.Strings = (
      'UPDATE MYDAC_Text'
      'SET'
      '  Name = :Name, TextField = :TextField'
      'WHERE'
      '  UID = :Old_UID')
    SQLRefresh.Strings = (
      'SELECT MYDAC_Text.Name, MYDAC_Text.TextField FROM MYDAC_Text'
      'WHERE'
      '  MYDAC_Text.UID = :Old_UID')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM MYDAC_Text')
    FetchAll = True
    Left = 408
    Top = 32
  end
  object OpenDialog: TOpenDialog
    Left = 240
    Top = 259
  end
  object SaveDialog: TSaveDialog
    Left = 272
    Top = 259
  end
  object sqCreateTable: TMyCommand
    Connection = MyConnection
    SQL.Strings = (
      'CREATE TABLE MYDAC_Text ('
      '  UID INT NOT NULL AUTO_INCREMENT PRIMARY KEY,'
      '  Name VARCHAR(50),'
      '  TextField BLOB'
      ')')
    Debug = True
    Left = 344
    Top = 68
  end
  object sqDropTable: TMyCommand
    Connection = MyConnection
    SQL.Strings = (
      'DROP TABLE MYDAC_Text')
    Debug = True
    Left = 380
    Top = 68
  end
end

Answer 7

Demo源码：
Main.pasunit Main;interfaceuses
{$IFNDEF LINUX}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, MyDacVcl,
{$ELSE}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids, MyDacClx,
{$ENDIF}
  DBAccess, MyAccess, DB, MemDS;type
  TfmMain = class(TForm)
    MyConnection: TMyConnection;
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    ConnectDialog: TMyConnectDialog;
    meComments: TDBMemo;
    Query: TMyQuery;
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    btLoad: TButton;
    btSave: TButton;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    ToolButton1: TToolButton;
    btClear: TButton;
    ToolButton2: TToolButton;
    sqCreateTable: TMyCommand;
    sqDropTable: TMyCommand;
    btCreate: TButton;
    btDrop: TButton;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btLoadClick(Sender: TObject);
    procedure btSaveClick(Sender: TObject);
    procedure btClearClick(Sender: TObject);
    procedure btCreateClick(Sender: TObject);
    procedure btDropClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  fmMain: TfmMain;implementation{$R *.dfm}procedure TfmMain.btOpenClick(Sender: TObject);
begin
  Query.Open;
end;procedure TfmMain.btCloseClick(Sender: TObject);
begin
  Query.Close;
end;procedure TfmMain.btLoadClick(Sender: TObject);
begin
  if Query.Active and OpenDialog.Execute then begin
    if Query.State = dsBrowse then
      Query.Edit;    TBlobField(Query.FieldByName('TextField')).LoadFromFile(OpenDialog.FileName);
  end;
end;procedure TfmMain.btSaveClick(Sender: TObject);
begin
  if not Query.EOF and SaveDialog.Execute then
    TBlobField(Query.FieldByName('TextField')).SaveToFile(SaveDialog.FileName);
end;procedure TfmMain.btClearClick(Sender: TObject);
begin
  if Query.Active then begin
    if Query.State = dsBrowse then
      Query.Edit;
    Query.FieldByName('TextField').Clear;
  end;
end;procedure TfmMain.btCreateClick(Sender: TObject);
begin
  sqCreateTable.Execute;
end;procedure TfmMain.btDropClick(Sender: TObject);
begin
  sqDropTable.Execute;
end;end.

Answer 8

很奇怪，我用MySQLFont写入的Longtext，读出没问题。
可是就是写入就Fail出那个内存溢出的错。
用UTF-8＋Unicode的选项。