Plötzlich Invalid typecast - aber ich hab nichts geändert

[easteregg]

Ich bin grad voll gestresst.

War gerade dabei, für mein Projekt den Client in der Version 1.0 fertig zustellen, hatte mich schon gefreut, dass ich die Arbeit hinter mir habe und plötzlich gings los!

in dem codestück

Delphi-Quellcode:

function winampsong(): string;
var
  hWinAmp : HWND;
//  buffer: array[0..MAX_PATH] of char;
  len : integer;
  Song : String;
begin
      hWinAmp := FindWindow('Winamp v1.x', nil);
          if hWinAmp <> 0 then
          begin
            // Winamp-Fenster gefunden, auslesen
            Len := SendMessage(hWinAmp, WM_GETTEXTLENGTH, 0, 0);
            SetLength(Song, Len);
            SendMessage(hWinAmp, WM_GETTEXT, Len + 1, Integer(Song));
          end;
      len:=length(song);
      if len = 0 then song:='Winamp closed';
      result:=song;
end;

medelt der plötzlich in der zeile "Invalide Typecast"

SendMessage(hWinAmp, WM_GETTEXT, Len + 1, Integer(Song)); Allerdings habe ich rein gar nichts an dem codestück verändert, das tritt aber plötzlich in allen möglichen funktionen und proceduren im gesammten quellcode auf, obwohl ich die betreffenden pas-datein nichtmal geöffnet hatte!

Kann mir da jemand helfen?
ich weis absolut nichmehr weiter!

gruß Richard

[shmia]

Delphi-Quellcode:

 Song: AnsiString;  // <====
...
  SendMessage(hWinAmp, WM_GETTEXT, Len + 1, Integer(PChar(Song)));

[mkinzler]

SendMessage(hWinAmp, WM_GETTEXT, Len + 1, StrToInt(Song)); Wobei ich Song nicht ungeprüft übergeben würde

[easteregg]

hm, danke euch, damit geht das wieder.
jetzt kommt allerdings in der MD5 classe auch wieder so ein fehler.

wo kommt das plötzlich her?
das hat die ganze zeit ohne probleme funktioniert, wie das auch vorher war!

[easteregg]

und jetzt geht plötzlich wieder alles, obwohl ich nix geändert habe?!
verwirrt mich... naja solange es jetzt weiterhin geht ;D

[IngoD7]

Zitat von mkinzler:

SendMessage(hWinAmp, WM_GETTEXT, Len + 1, StrToInt(Song)); Wobei ich Song nicht ungeprüft übergeben würde

StrToInt(Song) ist ja nun lange nicht dasselbe wie Integer(Song).

[yörsch]

Mal ne´Dumme Frage: hast DU was an den compiler einstellungen verändert?
oder irgendwas was sich global auswirgt?

[easteregg]

nicht das ich wüsste, ich hab dem programm nur ein icon hinzugefügt.
um das ganze problem zu lösen, hab ich dann die IDE mal geschlossen gehabt und ne runde tetris gespielt.
dann habsch das nochmal probiert und die options mir nochmal angeschaut, wo ich auch das icon eingefügt hatte, und dann gings wieder.
keine ahnung, hab sonst nichts verändert!

[shmia]

Man kann ja in den Compiler Optionen den Datentyp "String" auf ShortString oder AnsiString (lange Strings / Huge-Strings) mappen.
Huge-Strings=False würde sich garantiert auswirken.

[easteregg]

also sowas könnte den fehler verursacht haben?
was genau bedeutet denn "invalid typecast" ?