#2 Bagaimana Kirim Informasi (String, Gambar, Rekam) Antara Dua Aplikasi

Mengirim String, Rekam Custom atau sebuah gambar?
Kode sumber yang menyertainya menunjukkan bagaimana untuk mengirim string, catatan (kompleks tipe data) dan bahkan grafis (bitmap) ke aplikasi lain.

Jika Anda tidak bisa menunggu download, berikut adalah cara untuk mengirim grafis TBitmap :

    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;

    

//untuk menampilkan data tsb

    procedure TReceiverMainForm.HandleCopyDataImage(

    copyDataStruct: PCopyDataStruct) ;

    var

    ms: TMemoryStream;

    begin

    ms := TMemoryStream.Create;

    try

    ms.Write(copyDataStruct.lpData^, copyDataStruct.cbData) ;

    ms.Position := 0;

    receivedImage.Picture.Bitmap.LoadFromStream(ms) ;

    finally

    ms.Free;

    end;

   end; 

www.delphi.about.com