title image


Smiley Butter bei die Fische
HY  Frank!



Da  ich  die  Diskussion  ein  paar  Pixel  weiter  unten  soooo  "klasse"  finde,  hab  mich  trotz  akutem  Zeitmangel

hingesetzt  und  die  Nase  ins  WINAPI  gesteckt.  Damit  hast  Du  die  wichtigsten  Formate  im  Kasten.  Klinkt 

Dich  eventuell  noch  in  den  Clipboard-Chain  ein.

Die  Daten  kannst  Du  mit  TClientSocket  und  TServerSocket  zwischen  den  PC´s  versenden.  Schau  Dir  das 

Beispiel  "CHAT"  der  Delphi-Demos  an.  Damit  hast  Du  den  Text  schon  mal  im  Kasten.  Den  Rest  zu  proggen,  ist 

reine  Fleissarbeit.  Tipp:  Saug  Dir  das  PSDK  von  Microsoft. 



procedure TForm1.btnFormatsClick(Sender: TObject);Var pText:PChar; Format:UInt;begin  If OpenClipboard(Handle) Then Begin    Format:=EnumClipboardFormats(0); GetMem(pText,255); LB.Items.Clear;    While Format0 Do Begin      If Format=CF_TEXT Then LB.Items.Add('Text')      Else Begin        GetClipboardFormatName(Format,pText,255);        LB.Items.Add(pText+' '+IntToStr(Format));      End;      Format:=EnumClipboardFormats(Format);    End;    CloseClipboard; FreeMem(pText);  End;end;procedure TForm1.btnBitmapClick(Sender: TObject);Var hBmp:HBitmap; DC:HDC; Bmp:Windows.Bitmap;begin  If IsClipboardFormatAvailable(CF_BITMAP) And OpenClipboard(Handle) Then Begin    hBmp:=GetClipboardData(CF_BITMAP);    If hBmp0 Then Begin      DC:=CreateCompatibleDC(0);      GetObject(hBmp,SizeOf(Bmp),@Bmp);      SelectObject(DC,hBmp);      BitBlt(Canvas.Handle,100,10,Bmp.bmWidth,Bmp.bmHeight,DC,0,0,SRCCOPY);      DeleteDC(DC);    End;    CloseClipboard;  End;end;procedure TForm1.btnFilesClick(Sender: TObject);Var hDrp:THandle; pFile:PChar; Cnt,i:DWord;begin  If IsClipboardFormatAvailable(CF_HDROP) And OpenClipboard(Handle) Then Begin    hDrp:=GetClipboardData(CF_HDROP);    If hDrp0 Then Begin      Cnt:=DragQueryFile(hDrp,$FFFFFFFF,NIL,0);      i:=0;      GetMem(pFile,MAX_PATH);      While iDo Begin        DragQueryFile(hDrp,i,pFile,MAX_PATH);        lbFiles.Items.Add(pFile);        Inc(i);      End;      FreeMem(pFile);    End;    CloseClipboard;  End;end;procedure TForm1.btnTextClick(Sender: TObject);Var hMem:HBitmap; pC:PChar;begin  If IsClipboardFormatAvailable(CF_TEXT) And OpenClipboard(Handle) Then Begin    hMem:=GetClipboardData(CF_TEXT);    If hMem0 Then Begin      pC:=GlobalLock(hMem);      Label1.Caption:=pC;      GlobalUnLock(hMem);    End;    CloseClipboard;  End;end;



Das  war´s



Gruss



OLLIgeneriert  mit  sledit[v101] by  pumi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: