paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 16:26:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Some compatibility issues fixed

Browse Source
This commit is contained in:
michael 2004-09-28 19:08:08 +00:00
parent 991183d8f0
commit 61172d8471
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/base/mysql/mysql.pp
View File

@ -74,6 +74,7 @@ uses mysql_com;
_type : enum_field_types;
end;
MYSQL_FIELD = st_mysql_field;
TMYSQL_FIELD = ^MYSQL_FIELD;
PMYSQL_FIELD = ^MYSQL_FIELD;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
@ -112,6 +113,7 @@ in define line 34 *)
type
PMYSQL_ROW = ^MYSQL_ROW;
MYSQL_ROW = ppchar;
TMYSQL_ROW = MYSQL_ROW;
{ return data as array of strings }
PMYSQL_FIELD_OFFSET = ^MYSQL_FIELD_OFFSET;

8
packages/base/mysql/testdb.pp
View File

@ -23,7 +23,8 @@ begin
DataBase:=@Dummy[1];
end;
Write ('Connecting to MySQL...');
sock := mysql_connect(PMysql(@qmysql),nil,nil,nil);
mysql_init(PMySQL(@qmysql));
sock := mysql_real_connect(PMysql(@qmysql),nil,'michael','geen',nil,0,nil,0);
if sock=Nil then
begin
Writeln (stderr,'Couldn''t connect to MySQL.');
@ -82,7 +83,10 @@ begin
halt(0);
end.
$Log$
Revision 1.3 2002-09-07 15:42:53 peter
Revision 1.4 2004-09-28 19:08:09 michael
+ Some compatibility issues fixed
Revision 1.3 2002/09/07 15:42:53 peter
* old logs removed and tabs fixed
Revision 1.2 2002/05/31 11:54:33 marco