Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.056 Beiträge
 
Delphi 12 Athens
 
#11

Re: Über Skype Nachrichten verschicken

  Alt 1. Mai 2006, 15:12
Die nachricht selber besteht nur aus den Zeigern auf die zu übertragenden Daten und die Größe dieser ... die is also winzig klein (nach den vorhandenen Variablen so um die 12 Byte)



Kanst es ja auch mal so versuchen (hab aber auch keine ahnung, wie CopyDataStruct definiert ist und ob man da noch was ändern könnte):
Delphi-Quellcode:
function TSkypeControl.SendData(aString : string) : boolean;
var tmpdata : CopyDataStruct;
begin
  if (Length(aString) > 0) and (Fattached = true) then
  begin
    tmpdata.dwData := 0;
    tmpdata.lpData := PChar(aString);
    tmpdata.cbData := Length(aString) + 1;
    result := SendMessage(SkypeAPIWindowHandle, WM_COPYDATA, Application.Handle, LPARAM(@tmpdata)) <> 0;
  end
  else
    result := true;
end;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat