Discussion :

[tourlourou]

bonjour,
je cherche à convertir ce prototype, les 2 derniers paramètres me semblant confus !!!

void sqlite3_progress_handler(sqlite3*, int, int(*)(void*), void*);

il s'agit de passer une CallBack à SQLite.
le dernier paramètre est probablement le Self de la méthode CallBack qui serait (?) du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function MyObject.CallBack(Sender: TObject): integer;

[Kaféine]

Salut,

un pointer...

[Kaféine]

je pense que ton callback doit etre de la form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function MonCallBack(Arg: Pointer): Integer; //int(*)(void*)

[tourlourou]

merci, ça a l'air de coller ! mais je ne peux pas encore le tester...

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function sqlite3_progress_handler(db: Pointer; SQLLength: Integer; var hstatement ; Sender : pointer): Integer; cdecl;

trouver sur le net :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function DbProgressFunc(UserData: Pointer): Integer;
begin
  TfrmMain(UserData).DoProgress;
  Result := 0;
end;
 
//------------------------------------------------------------------------------
 
procedure TfrmMain.DoProgress;
var
  i: Integer;
begin
  i := ProgressBar.Position;
  Inc(i);
  if i > ProgressBar.Max then
    i := ProgressBar.Min;
  ProgressBar.Position := i;
  Application.ProcessMessages;
end;

@+ Phil