[gelöst] Free Pascal und Direct Mysql FP

Für Themen zu Datenbanken und Zugriff auf diese. Auch für Datenbankkomponenten.
Antworten
relocate
Beiträge: 61
Registriert: Di 24. Jan 2012, 11:47
OS, Lazarus, FPC: Win (L- FPC 2.4.4 + 2.6.4)
CPU-Target: 32Bit

[gelöst] Free Pascal und Direct Mysql FP

Beitrag von relocate »

Code: Alles auswählen

Hallo,
 
ich versuche gerade ein Projekt von Delphi 6 auf Free Pascal (Version hier 2.4.4) zu migrieren.
 
Dazu verwende ich die FreePascal Version von Direct Mysql
https://sourceforge.net/projects/directsql/files/Direct%20Mysql%20Objects/
erhalte dabei den Fehler Incompatible type for arg no. 3: Got "Pbyte" expected "open array of byte" in mysqlnet.pas Line:152
 
[code=text] 
function my_compress_alloc(const packet:PByte;_len:PLongint; complen:PLongint):PByte;
var compbuf:PByte;
    tmp:Longint;
begin
     //how much we need
     complen^ :=  trunc(_len^ * 120 / 100 + 12); // should be integer
     getmem(compbuf,complen^);
     if (compbuf=nil)then //out of memory?
     begin
          result:=nil;
          exit;
     end;
 "Fehlerhafte Zeile ->"     if (compress(compbuf,complen^, packet, _len^ ) <> 0) then //compress it
     begin
          freemem(compbuf); //we got an error
          result:=nil;
          exit;
     end;
     if (complen^ >= _len^) then //compressed packet is bigger than the uncompressed one ?
     begin
          complen^:=0;
          freemem(compbuf);
          result:=nil;
          exit;
     end;
     tmp:=_len^; //return the compressed packet
     _len^:=complen^;
     complen^:=tmp;
     result:=compbuf;
end;
 


Wie kann ich den Typ umwandeln.

PS.: Ja ich weiß, alles alt und lange nicht mehr gepflegt.
Trotzdem bitte keinen Hinweis auf neuere Komponenten oder sonstiges.

[Problem vorerst gelöst bzw. muss noch geprüft werden!]
Würde ich die Dinge so wie alle anderen machen, hätte ich so manche Probleme nicht.

Aber das wäre langweilig.

Antworten