Thema: Delphi SendData

Einzelnen Beitrag anzeigen

Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#1

SendData

  Alt 29. Nov 2017, 17:06
Hallo
Ich bin da auf ein tolle Seite gestossen und die erklärt wie man Daten zwischen zwei Applikationen austauscht
https://www.thoughtco.com/send-infor...ations-1058476

Dabei ist mir aufgefallen das ich nicht die Uses Anweisung
für
Delphi-Quellcode:
 procedure TSenderMainForm.SendImage() ;
 var
 ms : TMemoryStream;
 bmp : TBitmap;
 copyDataStruct : TCopyDataStruct;
 begin
 ms := TMemoryStream.Create;
 try
 bmp := self.GetFormImage;
 try
 bmp.SaveToStream(ms) ;
 finally
 bmp.Free;
 end;
 
 copyDataStruct.dwData := Integer(cdtImage) ; // identify the data
 copyDataStruct.cbData := ms.Size;
 copyDataStruct.lpData := ms.Memory;
 
 SendData(copyDataStruct) ;
 finally
 ms.Free;
 end;
 end;
SendData und cdtImage
google zeigt mir da verschiedene Lazarus Links an
Ich habe aber ein Delphi XE7 Pro

Ich habe alle pas Files durchsucht nach cdtImage und nichts Gefunden
hOLY
Martin MIchael
  Mit Zitat antworten Zitat