🚀 go-pugleaf

Native OLEDB provider for MySQL:

http://www.mysql.com/Downloads/Win32/MyOLEDB.exe
http://www.mysql.com/Downloads/Win32/MyOLEDB.chm

Not sure that it completely supports features of version 4, but it is most
native (goes from MySQL site).

Try also cmd->Parameters->...->Value = bytes;

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Tumurbaatar S." <nospam_tumur@magicnet.mn> �������/�������� � ��������
���������: news:41caab99@newsgroups.borland.com...
> My program connects to MySQL 4.1.7 using ADO components.
> The connection string points to MyODBC 3.51.10 DSN (Anybody know
> MySQL native OLEDB provider?). The table has only 4 fields where one
> of them is BLOB. The next code inserts a new record and it raises
> EAccessViolation when a command executes. When Execute() is
> removed/commented, no error.
>
>     int bounds[2] = {0};
>     cmd->Parameters->ParamByName("id")->Value = PacketID++;
>     cmd->Parameters->ParamByName("ip")->Value = AnsiString(Buff->ip);
>     bounds[1] = Buff->size - 1;
>     Variant bytes = VarArrayCreate(bounds, 1, varByte);
>     memcpy(bytes.ArrayLock(), Buff->data, Buff->size);
>     bytes.ArrayUnlock();
>     cmd->Parameters->ParamByName("data")->AppendChunk(bytes);
>     cmd->Execute();
>
> table stucture:
>
> CREATE TABLE packets
> (
>   id INT NOT NULL,
>   ts TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,
>   ip VARCHAR(15) NOT NULL,
>   data BLOB NOT NULL,
>
>   PRIMARY KEY (id)
> );
>
> CREATE INDEX packets_ts ON packets (ts);
> CREATE INDEX packets_ip ON packets (ip);
>
> P.S. Also, all 3 above parameters returned by TADOCommand are
> ftString, Size=25165824, Attributes=paNullable, paLong. Why?
> Does it mean that MyODBC and ADO do not understand each other?
>
>
>