Hallo
scp,
was soll ich sagen, es läuft nicht. Beim zweiten Durchlauf von "CollectDescriptors" kommt eine Schutzverletzung.
Es betrifft diesen Abschnitt:
Delphi-Quellcode:
// Check for Strings
StringIndex := 0;
repeat
TotalLength := GetStringDescriptor(DevHandle, ConnectionIndex, StringIndex);
If not (PCHostRequest.Data[0] = TotalLength) then
TotalLength := 0;
Inc(StringIndex);
For i := 1 To TotalLength do
DescriptorData[Nexti + i] := PCHostRequest.Data[i - 1];
Nexti := Nexti + TotalLength;
//ShowMessage(IntToStr(StringIndex) + ', ' +
//IntTostr(TotalLength) + #10 + BinToStr(@DescriptorData[Nexti + 1 - TotalLength], TotalLength));
until not (TotalLength <> 0);
Wieviel durchläufe gibt es eigendlich in der Schleife? Ich habe mal einen Zähler eingebaut und der will garnicht aufhören...
[edit=MrSpock]Doppelter intrag gelöscht. Mfg, MrSpock[/edit]