[URGENT] Store procedure cause Net packets out of order
Posted: Tue 22 Feb 2011 07:26
The problem is very similar with this thread :
http://www.devart.com/forums/viewtopic.php?t=19693
But this time, TMyQuery without Autoprepare or even TMyStoreProc cause
Project Project1.exe raised exception class EMySqlException with message '
ReceiveHeader: Net packets out of order: received[26], expected[1]'.
When Execute the store procedure and do ANY other database operation afterwards. It seems the store procedure had left some package not handled so the next operation will have incorrect packages.
You can reproduce the problem using the following simple sample.
Thanks a lot!
MYDAC 6.00.0.4
Delphi 2010
MySQL 5.1.54
email justmade(dot]yau(at]gmail(dot]com
http://www.devart.com/forums/viewtopic.php?t=19693
But this time, TMyQuery without Autoprepare or even TMyStoreProc cause
Project Project1.exe raised exception class EMySqlException with message '
ReceiveHeader: Net packets out of order: received[26], expected[1]'.
When Execute the store procedure and do ANY other database operation afterwards. It seems the store procedure had left some package not handled so the next operation will have incorrect packages.
You can reproduce the problem using the following simple sample.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess;
type
TForm1 = class(TForm)
con1: TMyConnection;
SP1: TMyStoredProc;
Button1: TButton;
tbl1: TMyTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SP1.Execute;
tbl1.Open;
end;
end.
As it had broken some functionality of my programmes, I cannot wait for the next release. Can you send me the place need to fix so that I can manually fix my copy of MyDAC source to solve this problem?object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 290
ClientWidth = 554
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 80
Top = 152
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object con1: TMyConnection
Database = 'test'
Port = 3306
Username = 'root'
Password = 'XXXXX'
Server = 'localhost'
Connected = True
LoginPrompt = False
Left = 36
Top = 40
end
object SP1: TMyStoredProc
StoredProcName = 'sel_from_emp'
Connection = con1
SQL.Strings = (
'CALL sel_from_emp()')
Left = 252
Top = 100
CommandStoredProcName = 'sel_from_emp'
end
object tbl1: TMyTable
TableName = 'emp'
Connection = con1
Left = 344
Top = 104
end
end
Thanks a lot!
MYDAC 6.00.0.4
Delphi 2010
MySQL 5.1.54
email justmade(dot]yau(at]gmail(dot]com