Thema: Delphi Aspi ansprechen

Einzelnen Beitrag anzeigen

skunker
(Gast)

n/a Beiträge
 
#8

Re: Aspi ansprechen

  Alt 6. Jun 2006, 00:43
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.
Angehängte Dateien
Dateityp: zip wnaspi_593.zip (243,1 KB, 11x aufgerufen)
Dateityp: pas srbcmn_144.pas (7,7 KB, 8x aufgerufen)
Dateityp: pas srb32_185.pas (12,6 KB, 8x aufgerufen)
Dateityp: pas scsidefs_168.pas (14,8 KB, 9x aufgerufen)
  Mit Zitat antworten Zitat