Über Skype Nachrichten verschicken

[storm1988]

Hallo,

ich habe mir um über Skype Nachrichten zu verschicken diese Komponente heruntergeladen LINK
Jedoch wenn ich Daten über 1024 Zeichen verschicke bekomm ich einen Read Error...

Jetzt wollte ich euch Fragen wie ich dieses Source Code verändern muss, dass ich auch längere Texte versenden kann (Mit Skype währe das ja prinzipiel möglich)

Delphi-Quellcode:

function TSkypeControl.SendData(aString : string) : boolean;
var tmpdata : CopyDataStruct;
    buffer  : array[0..1023] of char;
    i : integer;
begin
  result := true;
  if (Length(aString) > 0) and (Fattached = true)
    then Begin
      for i := 1 to Length(aString) do
        buffer[i-1] := aString[i];
      buffer[Length(aString)] := Chr(0);
      tmpdata.dwData := 0;
      tmpdata.lpData := @buffer;
      tmpdata.cbData := Length(aString)+1;
      if SendMessage( SkypeAPIWindowHandle,
                      WM_COPYDATA,
                      Application.Handle,
                      LPARAM(@tmpdata)) = 0
        then result := false;
    end;
end;

Ich hätte schon versuchte das Array einfach zu vergrößern jedoch ohne erfolg

Ich bedanke mich schonmal im vorraus