多谢了!
解决方案 »
- delphi 剪贴板复制文件的问题
- delphi 2009 的TServerSocket组件在哪 里?
- 登陆窗口问题!在线等!
- 点form最大化按钮,然后再恢复,panel上的组件和StatusBar就看不到了,请教如何解决
- 用程序将文字复制到剪贴板出现乱码,急!请各位高手帮忙!
- 跪求:大哥帮忙 treeview 的编辑问题 在线等!
- 对treeview不熟悉,希望大家帮帮忙。
- 控件问题,困惑!
- 在Fast report中如何在报表上实现两个数据计算的值(对程序一点也不懂)
- 有谁知到用DCOM作连接的三层系统如何发布(客户端和应用服务器的配置)
- Delphi代码编辑器让人疑惑的问题,进来看看!
- TStrings小问题
function TComm.WriteCommData( pDataToWrite: PChar; dwSizeofDataToWrite: Word ): Boolean;
var
Buffer: Pointer;
begin
if (WriteThread <> nil) and (dwSizeofDataToWrite <> 0) then
begin
Buffer := Pointer(LocalAlloc( LPTR, dwSizeofDataToWrite+1 ));
Move( pDataToWrite^, Buffer^, dwSizeofDataToWrite );
if PostThreadMessage( WriteThread.ThreadID, PWM_COMMWRITE,
WPARAM(dwSizeofDataToWrite), LPARAM(Buffer) ) then
begin
FSendDataEmpty := False;
Result := True;
Exit
end
end; Result := False
end;
buffer:是个临时的指针,指向你要发送的数据区。