Pointer aus SendMessage nicht dereferenzierbar?

[Aphton]

Zitat:

Ich wisst, doch, daß irgendwer auf die saublöde Idee kam den Integer nicht mit auf 64 Bit anwachsen zu lassen.

Ach, echt? Ironie?
Ich dachte immer, Integer sei ein generischer Typ und würde somit auch "mitwachsen"..
Falls Ironie - ist LPARAM nicht als Integer definiert? =P

[Luckie]

LPARAM ist als LongInt definiert.
LPARAM = Longint;

[himitsu]

jupp, war früher mal so (LongInt).

Nun in D2010 ist es so

Delphi-Quellcode:

INT_PTR = Integer;
LPARAM = INT_PTR;

Und ich hoffe mal, Emba ist so schlau das INT_PTR auf 64 Bit anzupassen, wenn man für 64 bit kompiliert.

[Luckie]

Ok, war noch Delphi 7 (startet schneller als mein D2006 ).

[erik-17]

Ok, danke für eure Antworten

Ich habs vorwiegend durch Luckie's Quellcode gelöst.

Die Lösung schaut nun so aus:

Delphi-Quellcode:

type
  PTimeBinar = ^TTimeBinar;
  TTimeBinar = record
         Stunden : array[1..5] of boolean;
         Minuten : array[1..6] of boolean;
         Sekunden : array[1..6] of boolean;
  end;

  TTimeThread = class(TThread)

  private
     TimeBinar : PTimeBinar;
  protected
    procedure Execute; override;
  end;

implementation
uses Unit1;

procedure TTimeThread.Execute;
begin
     TimeBinar := new(PTimeBinar);
     [...]
          SendMessage(Form1.Handle,WM_TIME_ANNOUNCING,0,LPARAM(TimeBinar));
end;

/// Quellcode der MainUnit:

procedure TForm1.OnTimeAnnounce(var Msg: TMessage);
var p : PTimeBinar;
begin
case Msg.WParam of
0 : begin
         p := PTimeBinar(Msg.LParam);
         TueEtwas(p);
    end;

Um das ganze Problem mal allgemein zu beschreiben: Ich will mir eine binäre Uhr bauen. Dazu lass ich einen Thread dauerhaft laufen, der mir die Zeit in die Binärfaktoren zerlegt und danach 100ms pausiert. Um dann nicht ständig mit einem Timer von der MainUnit aus die Werte auszulesen, sende ich aus dem Thread nach erfolgreicher Zerlegung die Message mit dem Pointer. Ist meiner Meinung nach viel eleganter