Runtime error 216 at 77D18C2C

[Pseudemys Nelsoni]

Moin,

das geht aber nicht, ich weiss ja nicht ob luckie da nen fehler hatte, aber "Gefunden" ist vom typ Cardinal und die funktion "ReadFile" gibt einen Boolean zurück

[Luckie]

Richtig, war ein kleiner fehler:

Delphi-Quellcode:

var 
  Gelesen: Cardinal; 
begin 
  while Gelesen = 1024 do 
  begin 
    ReadFile(..., ..., 1024, Gelesen, nil) 
    // mach was mit den Bytes 
  end;

[APP]

Hallo,
ich dachte eher an

Zitat von Pseudemys Nelsoni:

Code:

  MessageBox(0, PChar([color=red]IntToStr[/color](NumberOfBytesRead)), 'hi', 0);

da NumberOfBytesRead vom Typ Cardinal ist.

[Pseudemys Nelsoni]

hallo luckie,

würdest du mir die schleife bzw den ganzen part des codes erklären?
ich verstehe nicht wie die schleife je ausgeführt wird, weil sie ja irgendwie nie "true" wird oder? ich meine am anfang hat die variable ja nicht den wert 1024.

@APP: ich mache das (leider) ohne die VCL, da es ein patch wird (der nur ein string aus einer dll ersetzt) und den wollt ich nicht gerade 500kb gross werden lassen *g*

also IntToStr gibt es nicht

[APP]

Hallo,

tja, das mit NonVCL hast Du mir vergessen zu sagen ,
dann musst Du Dir etwas Einfallen lassen, denn dieser
Cast verursacht Deine Fehlermeldung
(da "NumberOfBytesRead" ja vom Typ Cardinal ist):

Delphi-Quellcode:

VAR
  NumberOfBytesRead                                : Cardinal;
BEGIN
  NumberOfBytesRead := 1;
  MessageBox(0, PChar(STRING(NumberOfBytesRead)), 'hi', 0); //Crash
END;

[Pseudemys Nelsoni]

hm, ich kenn keine möglichkeit einen integer in einen string umzuwandeln

[Luckie]

Lad dir meine Toolbox runter, da ist alles drin.

[Pseudemys Nelsoni]

ah danke, mit Str gehts


eine frage nebenbei(für sowas möcht ich kein thema aufmachen), was ist das:

Delphi-Quellcode:

function FloatToStr(Value: Extended; Width, Decimals: Integer): string;
begin
  Str(Value:Width:Decimals, result);
end;

wofür stehen die ":" ? hab ich u.a mit bei der toolbox gefunden

[Luckie]

Ich kann auch nur Befehle, Funktionen und Proceduren verwenden, die mir Delphi anbietet. Und die Hilfe dazu findet man in der Regel... Na? Wo? ...

Mit Str mag es wohl gehen, aber wie wäre es mit IntToStr ais der Toolbox?

[Pseudemys Nelsoni]

ah

Zitat:

Delphi-Syntax:

procedure Str(X [: Width [: Decimals ]]; var S);

jo die funktion IntToStr benutz ich dann, danke =]