Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

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

Re: Über Skype Nachrichten verschicken

  Alt 1. Mai 2006, 14: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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat