.. ich bekomme da keinerlei Fehlermeldung beim Create.
Build 19 - 06 Mar 2022
Grüße
Klaus
Und deswegen nehme ich an das ich bei den Einstellungen / Directorys usw. einen Fehler mache. Nur welchen ?
Ich habe den kompletten Pfad zu den Sources in der Bibliothek, setze das USE richtig ... und trotzdem PENG beim Connect.
Ich habe auch mal die entsprechende Libaray mit debugged, beim Create wird dann geprüft ob die TGPuttyLibAvailable ist und darin dann wieder irgendwelche StructSizes:
Delphi-Quellcode:
unction TGPuttyLibAvailable:Boolean;
var libpath:
string;
ulongsize,namesize,attrsize,namessize:Integer;
procedure CheckStructSizes;
begin
tggetstructsizes(@ulongsize,@namesize,@attrsize,@namessize);
if (ulongsize<>sizeof(TUnsignedLong))
or
(namesize<>sizeof(fxp_name))
or
(attrsize<>sizeof(fxp_attrs))
or
(namessize<>sizeof(fxp_names))
then begin
raise Exception.Create('
Invalid '+tgputtydll+
'
: uses different struct sizes: '+
'
ulongsize='+IntToStr(ulongsize)+'
/'+IntToStr(sizeof(TUnsignedLong))+
'
,namesize='+IntToStr(namesize)+'
/'+IntToStr(sizeof(fxp_name))+
'
,attrsize='+IntToStr(attrsize)+'
/'+IntToStr(sizeof(fxp_attrs))+
'
,namessize='+IntToStr(namessize)+'
/'+IntToStr(sizeof(fxp_names)));
end
end;
begin
{$ifdef MSWINDOWS}
Result:=true;
CheckStructSizes;
{$else}
if TGPLH>0
then begin
Result:=Assigned(tgputty_initcontext);
Exit;
end;
In meinem Testprogramm knallt es gleich bei dem ersten Test in folgender Zerile:
procedure tggetstructsizes(const Pulongsize,Pnamesize,Pattrsize,Pnamessize:PInteger); cdecl; external tgputtydll {$ifdef HASDELAYED}delayed{$endif};
Nur leider sind das für mich endgültig bömische Dörfer ... sagt das jemandem was ??
Gruss
Hans