SendMessage überträgt String nicht zuverlässig

[EWeiss]

Zitat von himitsu:

Meinst du nicht PostMessage?

Wobei hier SendMessage eh keine sinnvolle Antwort zurückgeben kann.
Denn, wie gesagt, sendet HWND_BROADCAST die Meldung an alle Programme (TopLevelWindows), hat nur ein Result und kann da natürlich nicht taustende Antworten drin unterbekommen.

Und das Tausende mein ich ernst. (nja, zumindestens paar Hundert sind es bestimmt)

JA natürlich..
Sorry war spät gestern.

Zitat:

@Sir Rufo.. Bei SendMessage kann man den Rückgabewert auswerten und das geht eben nur, wenn so lange gewartet wird, bis SendMessage seine Arbeit verrichtet hat.

Mach aber in seinem Fall nicht wirklich sinn. Oder?

gruss

[Sir Rufo]

Zitat von EWeiss:

Zitat:

@Sir Rufo.. Bei SendMessage kann man den Rückgabewert auswerten und das geht eben nur, wenn so lange gewartet wird, bis SendMessage seine Arbeit verrichtet hat.

Mach aber in seinem Fall nicht wirklich sinn. Oder?

Nö, nicht wirklich

[Dejan Vu]

Ist das schon erwähnt worden?
1. WM_COPYSTRUCT soll/darf nur mit SendMessage aufgerufen werden.
2. Die zu übertragenden Daten sollen/dürfen keine Pointer enthalten.
3. Der Empfänger soll die Daten schnellstmöglich aus der übergebenen Struktur kopieren und die Abarbeitung beenden.
4. Schneller geht es mit Pipes.

[himitsu]

Zitat von Sir Rufo:

Nö, nicht wirklich

Genauso, wie es keinen Sinn macht das an ALLES zu senden.

http://www.flounder.com/wm_copydata.htm

Zitat:

So sending a message like this using HWND_BROADCAST is to be considered a seriously antisocial act.

Der Meinung bin ich auch, obwohl das noch nett formuliert ist.

[Kostas]

Tausend Dank an alle beteiligten,

so funktioniert es einwandfrei und ausreichend schnell.

//zum Senden

Delphi-Quellcode:

procedure SendData;
var receiverHandle : THandle;
    copyDataStruct : TCopyDataStruct;
begin
  receiverHandle := FindWindow(PChar('TfrKamera1'),PChar('frKamera1'));

  if receiverHandle > 0 then
  begin
    copyDataStruct.dwData := Ord(ntCreateSnapShot);
    copyDataStruct.cbData := 1 + Length(SendMsgText);
    copyDataStruct.lpData :=  PChar(SendMsgText);

    SendMessage(receiverHandle, WM_COPYDATA, LPARAM(Handle), WPARAM(@copyDataStruct)) ;
  end;
end;

//zum Empfangen

Delphi-Quellcode:

procedure TfrKamera1.WMCopyData(var Msg: TWMCopyData) ;
var
  NachrichtTyp : TNachrichtTyp;
begin
  NachrichtTyp := TNachrichtTyp(Msg.CopyDataStruct.dwData);

  case NachrichtTyp of
    ntCreateSnapShot: HandleCopyDataString(Msg.CopyDataStruct);
  end;
end;

Für mein aktuelles Projekt ist es ausreichend.

Gruß Kostas

[himitsu]

Zitat von Kostas:

so funktioniert es einwandfrei

Zitat von Kostas:

Beide Anwendungen sind in Delphi5 geschrieben. Da ist das Char noch 1 Byte lang.

Bis jemand auf die abwägige Idee kommt eines oder beide Programme mit seinem neueren Delphi zu kompilieren,
da diesbezüglich alles ignoriert wurde, aber was soll.

[Kostas]

Für Delphi5 habe ich nun mal keine andere Möglichkeit.
Für zukünftige IDEs habt ihr ja bereits die passenden Hinweise gleich mittgeliefert.
Schönen Dank dafür.

Gruß Kosats

[EWeiss]

Zitat von himitsu:

Zitat von Kostas:

so funktioniert es einwandfrei

Zitat von Kostas:

Beide Anwendungen sind in Delphi5 geschrieben. Da ist das Char noch 1 Byte lang.

Bis jemand auf die abwägige Idee kommt eines oder beide Programme mit seinem neueren Delphi zu kompilieren,
da diesbezüglich alles ignoriert wurde, aber was soll.

Das sind die Nachteile wenn man sich bei so einem Thema mit einbringt.
Man will nichts lernen sondern nur übernehmen wenn es denn passt.
Aber wie du schon sagst... was soll's

gruss

[himitsu]

Gute Erlärung, nur die genannten Pips und eigentlich nahezu alles Andere, was mit IPC zu tun hat, funktioniert auch mit alten Delphis.