unit MyEdit;

interface
uses
  StdCtrls,
  Classes,
  SysUtils;

type
  TMyEdit=class(TEdit)
    private
      FFlag: boolean;
    published
      property Flag:boolean Read FFlag Write FFlag;
  end;

procedure Register;

implementation

uses MySQLClasses;

procedure Register;
begin
  RegisterComponents('My',[TMyEdit]);
end;

end.

    ListItem := lvGroups.Items.Add;
    ListItem.Caption := Str; //Присваеваешь сначала строку Str
    ListItem.Caption := Str1; //а за тем тут же Str1

ListItem := ListView.Items.Add;
ListItem.Caption := 'aaa';
ListItem.SubItems.Add('bbb'); //колонка 2
ListItem.SubItems.Add('ccc'); //колонка3

//мы хотим добавить запись в "groups"
  with TForm2.Create(nil) do
  try
    if ShowModal = idOk then
    begin
      Str := Edit1.Text;
      Str1 := Edit2.Text;
    end else
      Exit;
  finally
    Free;
  end;
  //добавляем
  MySQL.ExecSQL(
       ' INSERT INTO `groups` (`name`,`desk`)'
     + ' VALUES ('
     +     MySQLStr(MySQL, Str) + ','
     +     MySQLStr(MySQL, Str1)
        + ' )');
  Id := MySQLInsertId(MySQL); //узнаём какой autoincrementный ID присвоила база новой записе
  if Id <> 0 then
  begin
    ListItem := lvGroups.Items.Add;
    ListItem.Caption := Str;
    ListItem.Caption := Str1;
    New(Data);
    Data.id := IntToStr(Id);
    ListItem.Data := Data;
  end;

var imgStr:string;
    query_result: IMySQLQuery;
    streamImg: TMemoryStream;
    JpgImg: TJPEGImage;

...

       imgStr := query_result.ValueByName['photo'];
       streamImg := TMemoryStream.Create;
        try
          streamImg.Write(Pointer(imgStr)^, Length(imgStr));
          streamImg.Position := 0;
          JpgImg:=TJPEGImage.Create;
          try
            Img1.Picture.Graphic:=NIL;
            JpgImg.LoadFromStream(StreamImg);
            Img1.Picture.Graphic:=TJPEGImage.Create;
            Img1.Picture.Graphic.Assign(jpgImg);
           finally
             JpgImg.Free;
           end; //JpgImg
        finally
          streamImg.free;

        end;//streamImg
      

  st_mysql_field = record
    name, org_name,
    table, org_table,
    db,
    catalog,
    def: PAnsiChar;
    length, max_length,
    name_length, org_name_length,
    table_length, org_table_length,
    db_length, catalog_length,
    def_length,
    flags, decimals,
    charsetnr: Cardinal;
    _type: enum_field_types;
    extension: pointer; //<———— в mysql.pas добавь эту строку
  end;

...
  'SELECT' + #13#10 +
    'id,' + #13#10 +
    'pid,' + #13#10 +
    'first_name as fn,' + #13#10 +
    'last_name as ln,' + #13#10 +
    'dr,' + #13#10 +
    'phone,' + #13#10 +
    'address' + #13#10 +
   'FROM' + #13#10 +
    'mydb_test.book' + #13#10 +
   'WHERE `pid`=' + GroupData.id
    );
    if query_result = nil then //если по какой-либо причине нам вернули "ничего"
    begin
      ShowMySQLError; //посмотрим что случилось
      Exit;
    end;
    //если же запрос выполнен,
    while query_result.FetchRow do //то пробежимся по записям
    begin
      ListItem := lvBook.Items.Add; //и заполним lvBook
      ListItem.Caption := query_result.ValueByName['fn'];
      ListItem.SubItems.Add(query_result.ValueByName['ln']);
      ListItem.SubItems.Add(query_result.ValueByName['dr']);
      ListItem.SubItems.Add(query_result.ValueByName['phone']);
      ListItem.SubItems.Add(query_result.ValueByName['address']);
      New(BookData);
      BookData.id := query_result.ValueByName['id'];
      BookData.pid := query_result.ValueByName['pid'];
      ListItem.Data := BookData;
    end;
...

  st_mysql_field = record
    name, org_name,
    table, org_table,
    db,
    catalog,
    def: PAnsiChar;
    length, max_length,
    name_length, org_name_length,
    table_length, org_table_length,
    db_length, catalog_length,
    def_length,
    flags, decimals,
    charsetnr: Cardinal;
    _type: enum_field_types;
    extension: pointer; //<-------- в mysql.pas добавь эту строку
  end;

var
  query: IMySQLQuery;
  S: string;
begin
  query := MySQL.Query('SELECT * FROM ...');
  if query = nil then //если по какой-либо причине нам вернули "ничего"
  begin
    //ошибка
    Exit;
  end;
  if query.FetchRow then //или while query.FetchRow do //пробежимся по записям
  begin
    s := query.ValueByName['img'];
    with TFileStream.Create('f:\test.jpg', fmCreate) do
    try
      Write(Pointer(s)^, Length(s));
    finally
      Free;
    end;
  end;
end;

var
  query_result : IMySQLQuery;
  strSQLText   : string;
begin
...
  strSQLText := 'SELECT * FROM listParametr';
  query_result := form1.MySQL.Query(strSQLText);
....
  with form1.StringGrid1 do
  begin
....
        while query_result.FetchRow do //пробежимся по записям
        begin
              Cells[0, RowCount - 1] := (query_result.ValueByName['idList']);
              Cells[1, RowCount - 1] := (query_result.ValueByName['ListParametr']);
              Cells[2, RowCount - 1] := (query_result.ValueByName['ParametrValue']);

              // обработка для каждой строки
                    ComboBox1.Items.Add(Cells[2, RowCount - 1]);

              Cells[3, RowCount - 1] := (query_result.ValueByName['ParametrValueMax']);
              Cells[4, RowCount - 1] := (query_result.ValueByName['ParametrValueMin']);
        end;
              RowCount := RowCount - 1;  // пустую строку (последнюю) скрываем
end;
end;

type
   ...
   private
    mysql_link: imysql;
    procedure mysql_error();
  end;
...
mysql_link:=TMySQL.Create;
...
mysql_link.Host:= host;
mysql_link.User:= user;
mysql_link.Password:= pass;
mysql_link.Port:= port;
  if not mysql_link.Connect then mysql_error();
mysql_link.Database:= database;
...
   query_str:= 'SELECT privileges.id AS `id`,'
                     +' privileges.user_id AS `user_id`,'
                     +' privileges.login AS `user_login`,'
                     +' privileges.add_price AS `add`,'
                     +' privileges.ch_price AS `change`,'
                     +' privileges.del_price AS `delete`,'
                     +' users.last_login AS `last_login`,'
                     +' users.prersent AS `prersent`,'
              +'FROM privileges, users WHERE users.id=privileges.user_id'
                    +' AND users.pass = '+ u_pass;
   mysql_query:= mysql_link.Query(query_str);
   while mysql_query.FetchRow() do
    begin
     info.add('id',mysql_query.ValueByName['id']);
     ...
    end;

  if q.FetchRow() then //раз ты выбрал только одну запись, то, в данном случае, if
  begin
    tempStr := q.Values[0];

  q:=mysql.Query('SELECT blobfield FROM test.t1 WHERE ID=1');
  if q=nil then
  begin
    memo1.Text := Format('Ioeaea #%d '#13#10' %s', [MySQL.ErrorCode, MySQL.ErrorMessage]);
    Exit;
  end;
  if q.FetchRow() then //раз ты выбрал только одну запись, то, в данном случае, if
  begin
    tempStr := q.Values[0];
    ....//остальные строки из процедуры

// To Blob
procedure TForm1.Button8Click(Sender: TObject);
var
  a, b: string;
  s: TMemoryStream;
  i:integer;
begin
s:=TMemoryStream.Create;
img.Picture.Bitmap.SaveToStream(s);
s.Position := 0;
  try
    SetLength(a, s.size);
    s.Read(pointer(a)^, length(a));
  finally
    s.Free;
  end;
  SetLength(b, length(a)*2);
  i:=mysql_real_escape_string(MySQL.MySQL, Pointer(b), Pointer(a), length(a));
  SetLength(b, i);
  if mysql.ExecSQL('REPLACE INTO test.t1(ID,blobfield) VALUES (1,'''+b+''')') then showmessage('OK')
  Else
  memo1.Text := Format('Ioeaea #%d '#13#10' %s', [MySQL.ErrorCode, MySQL.ErrorMessage]);
end;

// From blob
procedure TForm1.Button9Click(Sender: TObject);
var
  tempStr: string;
  stream: TMemoryStream;
q: IMySQLQuery;
begin
  q:=mysql.Query('SELECT blobfield FROM test.t1 WHERE ID=1');
  if q=nil then
  memo1.Text := Format('Ioeaea #%d '#13#10' %s', [MySQL.ErrorCode, MySQL.ErrorMessage]);
  WHILE q.FetchRow() Do
  tempStr := q.Values[0];
  stream := TMemoryStream.Create;
  try
    stream.Write(Pointer(tempStr)^, Length(tempStr));
    stream.Position := 0;
    img.Picture.Bitmap := TBitmap.Create;
    img.Picture.Bitmap.LoadFromStream(stream);// Здесь часто вылетает Access Violation
  finally
    stream.free;
  end;
end;

...
function mysql_fetch_lengths(result: pmysql_res): Pointer; stdcall;
...
implementation
...
function mysql_fetch_lengths(result: pmysql_res): Pointer; stdcall; external libmySQL;
...

var
  FormatSettings: TFormatSettings;
  Date: TDateTime;
begin
  FormatSettings.ShortDateFormat := 'yyyy-mm-dd'; //в данном случае срабатывает ShortDateFormat
  FormatSettings.LongDateFormat := 'yyyy-mm-dd'; //не помню по памяти на какой формат срабатывает long date, но на всякий случай
  FormatSettings.DateSeparator := '-';
  date := StrToDate('1970-05-10', FormatSettings);
  ...//что-то с этой датой делаем
  str := DateToStr(date); //наш формат
  str := DateToStr(date, FormatSettings); //обратно mysqlевский формат
end;

var
  a, b: string;
  fs: TFileStream;
begin
  fs := TFileStream.Create('myfile.bmp', fmOpenRead or fmShareDenyWrite);
  try
    SetLength(a, fs.size);
    fs.Read(pointer(a)^, length(a));
  finally
    fs.Free;
  end;

  SetLength(b, length(a)*2);
  i:=mysql_real_escape_string(MySQL.MySQL, Pointer(b), Pointer(a), length(a));
  SetLength(b, i);
end;

function StrToHex(const Text: String): String;
begin
  if Text = '' then
  begin
    Result := '';
    Exit;
  end;
  SetLength(Result, Length(Text) * 2);
  BinToHex(Pointer(Text)^, Pointer(Result)^, Length(Text));
end;

INSERT INTO `book` (`pid`, `first_name`, `last_name`, `dr`, `phone`, `address`, `image`) VALUES
(1, 'Имя 1 2', 'Фамилия 1 2', '1970-02-02', '123-45-62', 'Город: ABC; улица: DEF; дом: 2', 0x424d3a1703000)

CALL proc_name(@variable)

SELECT @variable;

CREATE DEFINER=`root`@`localhost` PROCEDURE `goods_add`(ID smallint, nm char(45), unit_snm char(3))
BEGIN
IF ID IS NOT NULL THEN
INSERT INTO goods(IDgoods,name,IDunit,`count`) VALUES (ID,nm,(SELECT IDunit FROM unit WHERE shortname=unit_snm),0)
ON DUPLICATE KEY UPDATE name=nm, IDgoods=ID;
ELSE
INSERT INTO goods(name,IDunit,`count`) VALUES (nm,(SELECT IDunit FROM unit WHERE shortname=unit_snm),0);
END IF;
END

(функция проверяет совместимость единиц измерения. Например килограмм и грамм совместимы- обе весовые, возвратит 1, а если разные типы, то значит несовместимы, следовательно 0)
CREATE DEFINER=`root`@`localhost` FUNCTION `unit_type_equal`(IDunit1 SMALLINT, IDunit2 SMALLINT) RETURNS tinyint(1)
BEGIN
RETURN (SELECT IDunittype FROM unit WHERE IDunit=IDunit1)=(SELECT IDunittype FROM unit WHERE IDunit=IDunit2);
END

var
  tempStr: string;
  stream: TMemoryStream;
begin
  tempStr := query_result.ValueByName['image']; //предположим ваш blob называется image
  stream := TMemoryStream.Create;
  try
    stream.Write(Pointer(tempStr)^, Length(tempStr));
    stream.Position := 0; // не забывайте обнулять позицию stream
    //отобразим в TImage
    Image1.Picture.Bitmap := TBitmap.Create;
    Image1.Picture.Bitmap.LoadFromStream(stream);
    //сохраним на диске
    stream.Position:=0;
    stream.SaveToFile('c:\b.bmp');
  finally
    stream.free;
  end;
end;

query_result := MySQL.Query('select * from `book` where `pid`=' + GroupData.id);

var mysql:TMysql;

mysql:=TMysql.create(); по моему так...

procedure TForm1.Button5Click(Sender: TObject);
begin
MySQL.Database := 'DB';
CheckBox4.Checked:=MySQL.Database = 'DB';
    if MySQL.Database <> 'DB' then
    begin
  Caption := Format('#%d - %s', [MySQL.ErrorCode, MySQL.ErrorMessage]);
      Exit;
   end;
    MySQL.ExecSQL('SET CHARSET cp1251');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  MySQL := TMySQL.Create;
  MySQL.Host := 'localhost';
  MySQL.Port := 3306;
  MySQL.User := '...';
  MySQL.Password := '...';
  checkbox1.Checked:=MySQL.Connect;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  checkbox2.Checked:=MySQL.ExecSQL('CREATE DATABASE как у тебя');

  mysql.Database := 'DB';

  checkbox5.Checked:=
    MySQL.ExecSQL('CREATE TABLE `T1` как у тебя');
  checkbox6.Checked:=
    MySQL.ExecSQL('CREATE TABLE `T2` как у тебя');
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  s:string;
  i: Integer;
begin
  s:='INSERT INTO T1 как у тебя';
  for i:=1 to memo1.Lines.Count-1 do
    s:=s+',('''+memo1.Lines[i]+''')';
  CheckBox7.Checked:=MySQL.ExecSQL(s);

  s:='INSERT INTO T2 как у тебя';
  for i:=1 to memo2.Lines.Count-1 do
    s:=s+',('''+memo2.Lines[i]+''',1)';
  for i:=0 to memo3.Lines.Count-1 do
    s:=s+',('''+memo3.Lines[i]+''',2)';
  CheckBox8.Checked:=MySQL.ExecSQL(s);
end;

procedure TForm2.Button3Click(Sender: TObject);
var
  q: IMySQLQuery;
  i:integer;
begin
  q:=mysql.Query('SELECT * FROM T1');
  //далее как у тебя
end;

procedure TForm2.Button4Click(Sender: TObject);
var
  q: IMySQLQuery;
  i:integer;
begin
  q:=mysql.Query('SELECT * FROM T2');
  //далее как у тебя
end;

function TMySQL.GetDatabase: string;
begin
  Result := FDatabase;
end;

function TMySQL.GetHost: string;
begin
  Result := FDatabase; {!!!!!!!!!!!!!!!!!!!1}
end;

function Блаблабла.GetHost:String;
begin
  Result:=FDatabase; {!!! не FHost, а именно FDatabase !!!}
end;

  checkbox6.Checked:=
MySQL.ExecSQL('CREATE TABLE `T2` ('+
                           'id SMALLINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, ' +
                           'text VARCHAR( 25 ) NOT NULL, ' +
                           'idT1 SMALLINT UNSIGNED NOT NULL, ' +
                           'FOREIGN KEY (idT1) REFERENCES T1(id) '+
                           'ON DELETE CASCADE '+
                           'ON UPDATE CASCADE '+
                                 ') ENGINE = InnoDB CHARACTER SET cp1251 COLLATE cp1251_general_ci');

s:='INSERT INTO T1 (name) VALUES ('''+memo1.Lines[0]+''')';
for i:=1 to memo1.Lines.Count-1 do
s:=s+',('''+memo1.Lines[i]+''')';
CheckBox7.Checked:=MySQL.ExecSQL(s);

s:='INSERT INTO T2 (text,idT1) VALUES ('''+memo2.Lines[0]+''',1)';
for i:=1 to memo2.Lines.Count-1 do
s:=s+',('''+memo2.Lines[i]+''',1)';
for i:=0 to memo3.Lines.Count-1 do
s:=s+',('''+memo3.Lines[i]+''',2)';
CheckBox8.Checked:=MySQL.ExecSQL(s);

var
q: IMySQLQuery;
i:integer;
begin
q:=mysql.Query('SELECT * FROM T1');
if q=nil then
   Caption := Format('%d - %s', [MySQL.ErrorCode, MySQL.ErrorMessage])
   else
begin
sg.ColCount:=q.FieldCount;
sg.RowCount:=q.RecordCount;
while q.FetchRow() do
begin
for i:=0 to q.FieldCount-1 do
sg.Cells[i,q.RecNo]:=q.Values[i];
end;
end;
end;

var
q: IMySQLQuery;
i:integer;
begin
q:=mysql.Query('SELECT * FROM T2');
if q=nil then
   Caption := Format('%d - %s', [MySQL.ErrorCode, MySQL.ErrorMessage])
   else
begin
sg.ColCount:=q.FieldCount;
sg.RowCount:=q.RecordCount;
while q.FetchRow() do
begin
for i:=0 to q.FieldCount-1 do
sg.Cells[i,q.RecNo]:=q.Values[i];
end;
end;
end;

  MySQL.Host := 'localhost';
  MySQL.Port := 3306;
  MySQL.User := '';
  MySQL.Password := '';
  checkbox1.Checked:=MySQL.Connect;

checkbox2.Checked:=MySQL.ExecSQL('CREATE DATABASE `DB` DEFAULT CHARACTER SET CP1251');

  checkbox5.Checked:=
MySQL.ExecSQL('CREATE TABLE `T1` ('+
                           '`id` SMALLINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY, ' +
                           '`name` VARCHAR( 25 ) NOT NULL' +
                           ') ENGINE = INNODB CHARACTER SET cp1251 COLLATE cp1251_general_ci');

function mysql_fetch_lengths(result: pmysql_res): Pointer; stdcall;
function mysql_fetch_lengths(result: pmysql_res): Pointer; stdcall; external libmySQL;

function TMySQLQuery.GetValues(FieldNo: Integer): string;
var
  lengths: Pointer;
  length: Integer;
begin
  if FRow <> nil then
  begin
    Lengths := mysql_fetch_lengths(FRes);
    if Lengths <> nil then
    begin
      length := PCardinal(LongInt(Lengths) + FieldNo * SizeOf(Cardinal))^;
      SetLength(Result, length);
      Move(FRow[FieldNo]^, Pointer(Result)^, length);
    end else
      Result := '';
  end else
    Result := '';
end;

function mysql_fetch_lengths(result: pmysql_res): PLongWord; stdcall;
function mysql_fetch_lengths(result: pmysql_res): PLongWord; stdcall; external libmySQL;

function TMySQLQuery.GetValues(FieldNo: Integer): string;
begin
  if FRow <> nil then
    Result := StrPas(FRow[FieldNo]);
end;

function TMySQLQuery.GetValues(FieldNo: Integer): string;
type
  TCA = array of LongWord;
var
  Fl: PLongWord;
begin
  if FRow <> nil then
  begin
    Fl := mysql_fetch_lengths(FRes);
    SetLength(Result, TCA(Fl)[FieldNo]);
    Move(FRow[FieldNo]^, Pointer(Result)^, TCA(Fl)[FieldNo]);
  end;
end;