Hi,
so also hier einmal die komplette Übersetzung der 3 Adaptec ASPI Headers von c++ nach Delphi.
Zusätzlich habe ich noch mein Testproggi angehängt.
Ich habe alles versucht gemäß dem
SDK zu machen aber ich bekomme halt immer einen Fehler, bzw. beim GetASPI32SupportInfo kommt ein Fehler.
Schaut euch einfach mal meinen Code an vielleicht findet ihr ja den Fehler. Die Headers sind richtig übersetzt, daran kann es nicht liegen.
Ich hab den Code aus dem Adaptec
SDK übernommen (bei GetASPI32SupportInfo):
Delphi-Quellcode:
BYTE byHaCount;
BYTE byASPIStatus;
DWORD dwSupportInfo;
dwSupportInfo = GetASPI32SupportInfo();
byASPIStatus = HIBYTE(LOWORD(dwSupportInfo));
byHaCount = LOBYTE(LOWORD(dwSupportInfo));
if( byASPIStatus != SS_COMP && byASPIStatus != SS_NO_ADAPTERS )
{
// Handle ASPI error here. Usually this involves the display
// of a dialog box with an informative message.
}
in Delphi bei mir:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
byHaCount: BYTE;
byASPIStatus: BYTE;
dwSupportInfo: DWORD;
begin
dwSupportInfo := GetASPI32SupportInfo();
byASPIStatus := HIBYTE(LOWORD(dwSupportInfo));
byHaCount := LOBYTE(LOWORD(dwSupportInfo));
if (byASPIStatus <> SS_COMP)and(byASPIStatus <> SS_NO_ADAPTERS) then begin
showmessage('Fehler');
end;
end;
Nur kommt immer die Meldung: Fehler. Warum ?
Wenn ich
showmessage(IntToStr(byHaCount));
mache zeigt er mir einfach ne 0 an.