Record (záznam), DLL

[Vejrous]

Zdravím všechny,
přeposílám v ránci funkcí jednoduché záznamy typu:

Kód: Delphi [Vybrat]

1. type
2.   TCircle2d = record
3.     Center: Struct2d;
4.     Radius: Double;
5.   end;

Následně pak lze exportovat fci např:

Kód: Delphi [Vybrat]

1. function Circle2dFromPoints(out Circle: TCircle2d; const PointA, PointB, PointC: Struct2d): Wordbool; stdcall;

Nové Delphi, Lazarus, FPC umožňují používat pokročilé záznamy s funkcemi, operátory, konstruktor, atd.
Např.:

Kód: Delphi [Vybrat]

1. type
2.   TCircle2d = record
3.     Center: Struct2d;
4.     Radius: Double;
5.     function IsValid: Wordbool;
6.   end;

Neví někdo, co se pak předává? Pouze záznam, nebo se celý record včetně funkce? Což by pak nefungovalo s ostaními jazyky...

Za jakýkoliv poznatek děkuji.

[Radek Červinka]

Pouze záznam. I když v tvém jednoduchém případě si nejsem jist, jake budes mit napriklad zarovnani dat, packed record je v tomto pripade spise nutnost.
Nevím co je Struct2d.

Vsechny funkce, operatory atd. jsou metody, ktere jsou "spolecne", a pracuji nad "cistym" blokem dat.

[Vejrous]

Aha, díky. Struct2d je také záznam:

Kód: Delphi [Vybrat]

1. TStruct2d = record
2.   X: Double;
3.   Y: Double;
4. end;

Kdy volit packed record?
Přiznám se, že zatím mi vše fungovalo bez něj (komunikace Delphi, Lazarus, VBA; stdcall).

[Radek Červinka]

Zalezi na typech, treba double je typ co ma 8 byte, coz je automaticky zarovnane na 8 byte :-), kdyby jsi prenasel napr. typ byte, tak zalezi jak je nastavene zarovnavani, u packed record jsou data za sebou, v pripade zarovnani treba na 4 byte, je ten jeden byte doplnen 3byte "vaty". Proto pri vymene dat v pripade DLL je vhodne oznacit jako packed, protoze je to pak definovane zda tam vata je nebo neni. Pokud mas same double tak je to jedno.
Pokud ti to funguje tak na to kasli.
Obecne ale packed nepouzivat krome vymeny dat, protoze pristup na zarovnane struktury je vetsinou rychlejsi.

[Vejrous]

Díky za vysvětlení.
Ono je třeba projít i jednotlivé typy.
Např. při komunikace s VBA je třeba používat Wordbool, neboť má 2 byte. Klasický Delphi boolean 1 byte je no go.