久久99精品久久久久久不卡,性做久久久久久免费观看,国内精品伊人久久久久777

python thread lock

Tue, 09 Oct 2007 05:34:00 GMT

1 #coding=utf-8
2
3 # locks.py zhangsk
4 import threading, time
5
6 b = 50
7 l = threading.Lock()
8
9 def threadcode():
10     """This is run in the created threads"""
11     global b
12     print "Thread %s invoked" % threading.currentThread().getName()
13     l.acquire()
14     try:
15         print "Thread %s running" % threading.currentThread().getName()
16         time.sleep(1)
17         b = b + 50
18         print "Thread %s set b to %d" % (threading.currentThread().getName(), b)
19     finally:
20         l.release()
21
22 print "Value of b at start of program:", b
23 childthreads = []
24
25 for i in range(1, 5):
26     t = threading.Thread(target = threadcode, name = "Thread-%d" % i)
27     t.setDaemon(1)
28     t.start()
29     childthreads.append(t)
30
31 for t in childthreads:
32     t.join()
33
34 print "New Value of b:", b

张树(w��i)�?/a> 2007-10-09 13:34 发表评论

MSN上的留言

Sat, 29 Sep 2007 09:09:00 GMT

老勾的MSN上写了这样一句话�Q�让我思考了很久�Q?br>“�E�序员就像男人，�~�程语言��像女�h�Q�一般男人都惌��很多女�h�Q�可没几个男��真正了解一个女�?#8221;

张树(w��i)�?/a> 2007-09-29 17:09 发表评论

Sat, 29 Sep 2007 08:29:00 GMT

1 #coding=utf-8
2 #!/user/bin/env python
3 # connect.py 17:35 2007-9-28 zhangsk
4
5 import socket
6
7 print "Creating socket", #加逗号�Q�相当于c的print,不加逗号相当于c的println
8 s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
9 print "done."
10
11 print "Connecting to remote host",
12 s.connect(("www.google.com", 80))
13 print "done."

看到支持插入python的代码，特发个尝试一下�?br>

张树(w��i)�?/a> 2007-09-29 16:29 发表评论

Delphi7�q�程调试

Sat, 29 Sep 2007 08:26:00 GMT

请保留完整信�?br>Delphi7�q�程调试
张树(w��i)�?2007-09-29
http://www.zhangsk.cn/
http://www.sunmba.cn/

上次写的delphi�q�程调试�Q�有些步骤不是必��ȝ��。今整理如下�Q�希望对大家有所帮助�?br>
自己的开发机器称��Z��机，�q�行�E�序的机器称为目标机�Q?br>一、在��L��~�译执行�E�序
1、project->options->linker中的EXE and DLL options选项�l�中的include remote debug symbols打上勾，
�q�样��可以生成rsm为扩展名的文�Ӟ��该文件名�U�C��你的��目同名�?br>2、project->options->Compiler->Debugging中的勑֏�以全部选上�Q�这是在你的�E�序支持debug(正式发布产品时要��L��q�些选项�Q�Delphi默认讄��是选则大部分的)
3、Tools->Environment Options->Preferences的Compling and running选择�l�中选上Show compiler progress(可选项�Q�在�~�译或者运行时昄��~�译�q�程�Q�徏议��?
二、拷贝Project1.exe和Project1.rsm到目标机器的�q�行目录(该目录可以是你的安装目录�Q�也可以��L��)
注意�Q�主机的代码不需和目标机的exe和rsm文�g一��_(d��)��是说在�q�行�W�一步后不能改动你的代码
三、目标机安装borland的远�E�调试工具rdebug�Q�delphi7的光盘中��有�Q�或者google一下�?br>四、启动目标机的rdebug�Q�启动后目标机的托盘图标中会(x��)出现一个小“虫子”debug的图�?br>注意�Q�远�E�调试工具不需正常�q�行才能�q�行�q�程调试
五、主机的Delphi的远�E�调试设�|?br>1、Delphi中选择Run->Parameters->Remote
2、Remote Path中输入目标机器的�q�行目录
3、Remote Host中输入目标机IP
4、选择Debug project on remote machine
5、选择ok
六、主机按F9调试卛_��

张树(w��i)�?/a> 2007-09-29 16:26 发表评论

switch

Fri, 14 Sep 2007 04:37:00 GMT

在c++�?br>switch(choice)
{
   case 1:
   case 2:
   case 3:
   default:
}
如果�q�样的执行代码就�?x��)把所有的case走到(java中也是如�?�Q�所以不要忘记在case中加入break;
switch(choice)
{
   case 1: A
    break;
   case 2: B
    break;
   case 3: C
    break;
   default:       break;

delphi中就不用了�?/p> case I of
1..5: Caption := 'Low';
6..9: Caption := 'High';
0, 10..99: Caption := 'Out of range';
else
Caption := '';
end;

张树(w��i)�?/a> 2007-09-14 12:37 发表评论

��谈Object Pascal的指�?

Fri, 14 Sep 2007 04:15:00 GMT

转蝲�Q�虽然这��不是自己写的，但是觉得不错�Q�应该让大家看看�?br>��谈Object Pascal的指�?

　　Nicrosoft(nicrosoft@sunistudio.com) -- 2001.8.26
http://www.sunistudio.com/nicrosoft/
　　东日文档�Q?a >http://www.sunistudio.com/asp/sunidoc.asp

　　大家都认为，C语言之所以强大，以及(qi��ng)其自由性，很大部分体现在其灉|��的指针运用上。因此，说指针是C语言的灵��，一炚w��不�ؓ(f��)�q�。同�Ӟ��q�种说法也让很多��Z�生误解，��g��只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本��n也是支持指针的。从最初的Pascal发展至今�?Object Pascal�Q�可以说在指针运用上�Q�丝毫不�?x��)逊色于C语言的指针�?

　　以下内容分�ؓ(f��)八个部分�Q�分别是

　　一、类型指针的定义
　　二、无�c�d��指针的定�?
　　三、指针的解除引用
　　四、取地址�Q�指针赋��|��
　　五、指针运��?
　　六、动态内存分�?
　　七、字�W�数�l�的�q�算
　　八、函数指�?

　　一、类型指针的定义。对于指向特定类型的指针�Q�在C中是�q�样定义的：(x��)
　　　　int *ptr;
　　　　char *ptr;
　　　　与之�{��h(hu��n)的Object Pascal是如何定义的呢？
　　　　var ptr : ^Integer;
　　　　　　ptr : ^char;
　　　　其实也就是符��L(f��ng)��差别而已�?

　　二、无�c�d��指针的定义。C中有void *�c�d��Q�也��是可以指向��M��c�d��数据的指针。Object Pascal为其定义了一个专门的�c�d��Q�Pointer。于是，
　　　　ptr : Pointer;
　　　　��׃��C中的
　　　　void *ptr;
　　　　�{��h(hu��n)了�?

　　三、指针的解除引用。要解除指针引用�Q�即取出指针所指区域的��|��Q�C 的语法是 (*ptr)�Q�Object Pascal则是 ptr^�?

　　四、取地址�Q�指针赋��|��。取某对象的地址�q�将其赋值给指针变量�Q�C 的语法是
　　　　ptr = &Object;
　　　　Object Pascal 则是
　　　　ptr := @Object;
　　　　也只是符��L(f��ng)��差别而已�?

　　五、指针运��。在 C 中，可以�Ҏ(gu��)��针进行移动的�q�算�Q�如�Q?
　　　　char a[20];
　　　　char *ptr=a;
　　　　ptr++;
　　　　ptr+=2;
　　　　当执行ptr++;�Ӟ��~�译器会(x��)产生让ptr前进sizeof(char)步长的代码，之后�Q�ptr��指向a[1]。ptr+=2;�q�句使得ptr前进两个sizeof(char)大小的步�ѝ��同��P��我们来看一下Object Pascal中如何实玎ͼ�(x��)
　　　　var a : array [1..20] of Char;
　　　　　　ptr : PChar; //PChar 可以看作 ^Char
　　　　begin
　　　　　　ptr := @a;
　　　　　　Inc(ptr); // �q�句�{��h(hu��n)�?C �?ptr++;
　　　　　　Inc(ptr, 2); //�q�句�{��h(hu��n)�?C �?ptr+=2;
　　　　end;

　　六、动态内存分配。C语言中，使用malloc()库函数分配内存，free()函数释放内存。如�q�样的代码：(x��)
　　　　int *ptr, *ptr2;
　　　　int i;
　　　　ptr = (int*) malloc(sizeof(int) * 20);
　　　　ptr2 = ptr;
　　　　for (i=0; i<20; i++){
　　　　　　*ptr = i; ptr++;
　　　　}
　　　　free(ptr2);
　　　　Object Pascal中，动态分配内存的函数是GetMem()�Q�与之对应的释放函数为FreeMem()�Q�传�l?Pascal中获取内存的函数是New()�?Dispose()�Q�但New()只能获得对象的单个实体的内存大小�Q�无法取得连�l�的存放多个对象的内存块�Q�。因此，与上面那�D�C的代码等��L(f��ng)��Object Pascal的代码�ؓ(f��)�Q?
　　　　var ptr, ptr2 : ^integer;
　　　　　　i : integer;
　　　　begin
　　　　　　GetMem(ptr, sizeof(integer) * 20);
　　　　　　　　//�q�句�{��h(hu��n)于C�?ptr = (int*) malloc(sizeof(int) * 20);
　　　　　　ptr2 := ptr; //保留原始指针位置
　　　　　　for i := 0 to 19 do
　　　　　　begin
　　　　　　　　ptr^ := i;
　　　　　　　　Inc(ptr);
　　　　　　end;
　　　　　　FreeMem(ptr2);
　　　　end;
　　　　对于以上�q�个例子�Q�无论是C版本的，�q�是Object Pascal版本的）�Q�都要注意一个问题，��是分配内存的单位是字节�Q�BYTE�Q�，因此在��用GetMem�Ӟ��其第二个参数如果惛_��然的写成 20�Q�那么就�?x��)出问题了（内存讉K��界�Q�。因为GetMem(ptr, 20);实际只分配了20个字节的内存�I�间�Q�而一个整形的大小是四个字节，那么讉K��W�五个之后的所有元素都是非法的了（对于malloc()的参数同��P��?

　　七、字�W�数�l�的�q�算。C语言中，是没有字�W�串�c�d��的，因此�Q�字�W�串都是用字�W�数�l�来实现�Q�于是也有一套str打头的库函数以进行字�W�数�l�的�q�算�Q�如以下代码�Q?
　　　　char str[15];
　　　　char *pstr;
　　　　strcpy(str, "teststr");
　　　　strcat(str, "_testok");
　　　　pstr = (char*) malloc(sizeof(char) * 15);
　　　　strcpy(pstr, str);
　　　　printf(pstr);
　　　　free(pstr);
　　　　而在Object Pascal中，有了String�c�d��Q�因此可以很方便的对字符串进行各�U�运��。但是，有时我们的Pascal代码需要与C的代码交互（比如�Q�用Object Pascal的代码调用C写的DLL或者用Object Pascal 写的DLL准备允许用C写客��L(f��ng)��的代码）的话�Q�就不能使用String�c�d��了，而必��M��用两�U�语�a�通用的字�W�数�l�。其实，Object Pascal提供了完全类似C的一整套字符数组的运��函敎ͼ�以上那段代码的Object Pascal 版本是这��L(f��ng)��Q?
　　　　var str : array [1..15] of char;
　　　　　　pstr : PChar; //Pchar 也就�?^Char
　　　　begin
　　　　　　StrCopy(@str, 'teststr');
　　　　　　　　//在C中，数组的名�U�可以直接作为数�l�首地址指针来用
　　　　　　　　//但Pascal不是�q�样的，因此 str前要加上取地址的运��符
　　　　　　StrCat(@str, '_testok');
　　　　　　GetMem(pstr, sizeof(char) * 15);
　　　　　　StrCopy(pstr, @str);
　　　　　　Write(pstr);
　　　　　　FreeMem(pstr);
　　　　end;

　　八、函数指针。在动态调用DLL中的函数�Ӟ��׃��(x��)用到函数指针。假讄��C写的一�D�代码如下：(x��)
　　　　typedef int (*PVFN)(int); //定义函数指针�c�d��
　　　　int main()
　　　　{
　　　　　　HMODULE hModule = LoadLibrary("test.dll");
　　　　　　PVFN pvfn = NULL;
　　　　　　pvfn = (PVFN) GetProcAddress(hModule, "Function1");
　　　　　　pvfn(2);
　　　　　　FreeLibrary(hModule);
　　　　}
　　　　��我个�h感觉来说�Q�C语言中定义函数指针类型的typedef代码的语法有些晦涩，而同��L(f��ng)��代码�?Object Pascal中却非常易懂�Q?
　　　　type PVFN = Function (para : Integer) : Integer;
　　　　var fn : PVFN;
　　　　　　//也可以直接在此处定义�Q�如�Q�fn : function (para:Integer):Integer;
　　　　　　hm : HMODULE;
　　　　begin
　　　　　　hm := LoadLibrary('test.dll');
　　　　　　fn := GetProcAddress(hm, 'Function1');
　　　　　　fn(2);
　　　　　　FreeLibrary(hm);
　　　　end;

张树(w��i)�?/a> 2007-09-14 12:15 发表评论

HelloWin

Thu, 13 Sep 2007 09:15:00 GMT

被Delphi惯坏了，发现写一个原生的Form�q�么�ȝ��
vc版本

#include <windows.h>

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    PSTR szCmdLine, int iCmdShow)
{
     static TCHAR szAppName[] = TEXT ("HelloWin") ;
     HWND         hwnd ;
     MSG          msg ;
     WNDCLASS     wndclass ;

     wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
     wndclass.lpfnWndProc   = WndProc ;
     wndclass.cbClsExtra    = 0 ;
     wndclass.cbWndExtra    = 0 ;
     wndclass.hInstance     = hInstance ;
     wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION) ;
     wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
     wndclass.hbrBackground = (HBRUSH) GetStockObject (WHITE_BRUSH) ;
     wndclass.lpszMenuName  = NULL ;
     wndclass.lpszClassName = szAppName ;

     if (!RegisterClass (&wndclass))
     {
          MessageBox (NULL, TEXT ("This program requires Windows NT!"),
                      szAppName, MB_ICONERROR) ;
          return 0 ;
     }

     hwnd = CreateWindow (szAppName,                  // window class name
                          TEXT ("The Hello Program"), // window caption
                          WS_OVERLAPPEDWINDOW,        // window style
                          CW_USEDEFAULT,              // initial x position
                          CW_USEDEFAULT,              // initial y position
                          CW_USEDEFAULT,              // initial x size
                          CW_USEDEFAULT,              // initial y size
                          NULL,                       // parent window handle
                          NULL,                       // window menu handle
                          hInstance,                  // program instance handle
                          NULL) ;                     // creation parameters

     ShowWindow (hwnd, iCmdShow) ;
     UpdateWindow (hwnd) ;

     while (GetMessage (&msg, NULL, 0, 0))
     {
          TranslateMessage (&msg) ;
          DispatchMessage (&msg) ;
     }
     return msg.wParam ;
}

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
     HDC         hdc ;
     PAINTSTRUCT ps ;
     RECT        rect ;

     switch (message)
     {
     case WM_CREATE:
          PlaySound (TEXT ("hellowin.wav"), NULL, SND_FILENAME | SND_ASYNC) ;
          return 0 ;

     case WM_PAINT:
          hdc = BeginPaint (hwnd, &ps) ;

          GetClientRect (hwnd, &rect) ;

          DrawText (hdc, TEXT ("Hello, Windows 98! By ZhangSK"), -1, &rect,
                    DT_SINGLELINE | DT_CENTER | DT_VCENTER) ;

          EndPaint (hwnd, &ps) ;
          return 0 ;

     case WM_DESTROY:
          PostQuitMessage (0) ;
          return 0 ;
     }
     return DefWindowProc (hwnd, message, wParam, lParam) ;
}

Delphi版本

program HelloWin;

uses
  Windows,
  Messages,
  MMSystem,
  SysUtils;

Const
  AppName:String = 'HelloWin';
  Null:Integer = 0;

function WndProc(WindowHwnd:HWND;TheMessage:UINT;WPARAMS:wParam;LPARAMS:lParam):Integer;stdcall;
var
  ClientDC:HDC;
  ps:TPaintStruct;
  ClientRect:TRect;
  sUser, sPower: string;
begin
  case TheMessage of
  WM_CREATE: begin
     PlaySound('hellowin.wav',null,SND_FILENAME or SND_ASYNC);
     Result:=0;
  end;
  WM_PAINT: begin
     ClientDc:=BeginPaint(WindowHwnd,ps);
     GetClientRect(WindowHwnd,ClientRect);
     DrawText(ClientDc,PChar('Hello,Window98!'),-1,ClientRect,DT_SINGLELINE or
              DT_CENTER OR DT_VCENTER);
     sUser := 'ZhangSK''Testing';
     sPower := 'POWERD BY DELPHI';
     TextOut(ClientDC, 5, 5, PChar(sUser), Length(sUser));
     TextOut(ClientDC, ClientRect.Right-200, ClientRect.Bottom-30, PChar(sPower), Length(sPower));
     Endpaint(Windowhwnd,ps);
     Result:=0;
  end;
  WM_DESTROY: begin
     PostQuitMessage(0);
     Result:=0;
  end;
  else
    Result:=DefWindowProc(WindowHwnd,TheMessage,WPARAMS,LPARAMS);
  end;
end;


var
  WinHwnd:HWND;
  WinMsg:MSG;
  WinClass:WNDCLASS;
  ECode:DWORD;
  EString:PChar;
begin
  WinClass.style:=CS_HREDRAW OR CS_VREDRAW;
  WinClass.lpfnWndProc:=@WndProc;
  WinClass.cbClsExtra:=0;
  WinClass.cbWndExtra:=0;
  WinClass.hInstance:=hInstance;
  WinClass.hIcon:=LoadIcon(NULL,IDI_APPLICATION);
  WinClass.hCursor:=LoadCursor(Null,IDC_ARROW);
  WinClass.hbrBackground:=HBRUSH(GetStockObject(WHITE_BRUSH));
  WinClass.lpszMenuName:=nil;
  WinClass.lpszClassName:=PChar(AppName);

  if (RegisterClass(WinClass)=0) then
  begin
    MessageBox(null,'This application need WINDOWS platform','message',MB_ICONERROR);
    exit;
  end;

  WinHwnd:=CreateWindow(PChar(AppName),'First SDK Application',WS_OVERLAPPEDWINDOW,
                        CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,
                        0,0,hInstance,nil);
  if Iswindow(WinHwnd)then
  begin
    ShowWindow(WinHwnd,SW_SHOWNORMAL);
    updateWindow(WinHwnd);
  end
  else begin
    ECode:=GetLastError;
    EString:=PChar(Inttostr(LoWord(ECode)));
    Messagebox(null,EString,'Error',MB_ICONERROR);
    exit;
  end;

  while(Getmessage(WinMsg,null,0,0))do
  begin
    TranslateMessage(WinMsg);
    DispatchMessage(WinMsg);
  end;

  UnregisterClass(PChar(AppName),hInstance);
end.

张树(w��i)�?/a> 2007-09-13 17:15 发表评论

VNC 初识

Tue, 11 Sep 2007 05:23:00 GMT

��L��的动力：(x��)看到公司产品中应用程序共享的功能很不错，在想想两�q�前��Z��做部队的桌面�׃�n软�g而实现的东西�Q�简直不能比较，�l�于扑ֈ��q�个开源项�?a >http://www.realvnc.com/
使用感觉�Q�目前是我见到最快的桌面�׃�n软�g
�~�译源码�Q�直接在VC6下就能编译，�Q�记得不能Build All,只要在FileView选项卡下分别Build vncviewer files和winvnc files��可以）�?/li>
学习(f��n)计划�Q�从今天2007-09-11开始学�?f��n)、分析VNC的源代码�?br>

张树(w��i)�?/a> 2007-09-11 13:23 发表评论

hi

Tue, 04 Sep 2007 09:44:00 GMT

hi c++!

不会(x��)吧，�q�个c++blog的插入代码竟然没有c++格式�?晕～�?br>��加入
C++
Delphi
Python
的代码格式化

张树(w��i)�?/a> 2007-09-04 17:44 发表评论