Forum: Win32/Win64 API (native code)
Delphi
by scp,
24. Dez 2004
Kram aus....
Die Bytes müssen vorher verdreht werden, dann haut es hin.
function VendorLetters(vid : word) : String;
begin
vid := ((vid and $00FF) shl 8) +
((vid and $FF00) shr 8);
result := Chr(((vid and $7C00) shr 10) + $40) +
Chr(((vid and $03E0) shr 5) + $40) +
Forum: Win32/Win64 API (native code)
Delphi
by scp,
27. Jun 2004
Für alle, die sich für den EDID header interessieren, hier gibt es die Spezifikation. Der Header würde in Delphi also so aussehen:
type
TEDIDHeader = record
Padding : array of Byte;
VendorID : Word; // bits 14 - 10 first letter (01h='A', 02h='B', etc.)
// bits 9 - 5 second letter
// bits 4 - 0 third letter
ProductID : Word;...