Read more »]]>

前言

在 Mac OS X 10.7 Lion 中，新增了两个特性对用户来说可能比较有用的特性，一个是全屏程序，一个是文件版本控制。

全屏程序可以使用户集中注意力到一个程序上，并且隐藏菜单栏、Dock 等不相关的界面元素，使得工作区最大化，更加有效地利用有限的屏幕空间。

文件版本控制可以让用户在不借助于 Time Machine、Git 或者 SVN 这些工具的时候，也可以轻松恢复文件到之前保存过的版本，防止一些误操作删除了重要内容。

全屏程序

全屏功能可以让程序以全屏方式显示，这样用户可以拥有最大的操作区域，并隐藏与程序无关的视觉元素。

在全屏方式下，Dock 和菜单栏都会自动隐藏，可以通过将鼠标移动到屏幕边缘的方式来重新显示 Dock 或者菜单栏。

目前全屏程序有一个问题是在使用双屏的情况下，有一个屏幕会无法使用，只能显示背景图片，而不能同时使用两个屏幕，或者将另外一个程序全屏在另一个屏幕。

另外，全屏程序切换是使用水平动画切换，对我来说可能动作太大，不是很习惯，这是题外话了。

要设置一个 App 支持全屏很简单，只需要设置对应 Window 的属性即可。

Full Screen 有两种模式，分别为 NSWindowCollectionBehaviorFullScreenPrimary 和 NSWindowCollectionBehaviorFullScreenAuxiliary，其中多数时候只需要使用 NSWindowCollectionBehaviorFullScreenPrimary 即可。

在设置 NSWindowCollectionBehaviorFullScreenPrimary 后，就会在相应的 Window 右上角显示一个全屏按钮，用户通过这个按钮就可以切换程序到全屏方式使用。

全屏模式切换菜单

有些时候，为了用户使用方便，需要设置一个快捷键，或者菜单来供用户进行全屏模式的切换，这时，只需要添加一个 NSMenuItem 到主菜单的 View 菜单中，将 selector 连接到 First Responder 的 toggleFullScreen: 即可。

Cocoa 在运行时会自动寻找 View 菜单中 selector 为 toggleFullScreen: 的菜单项目，并根据当前窗体的显示情况来自动更新菜单标题为 Enter Full Screen 或 Exit Full Screen。

文件版本控制

在 Lion 中对普通用户来说，一个非常有用的特性就是文件版本控制了。在不需要 Time Machine，不需要 Git、SVN 等版本控制参与的情况下，只需要程序支持这个功能，就可以直接找回编辑过文件的以前版本。

在文件版本控制之后，其实是自动保存功能在起作用，要实现文件版本控制，只需要 Mac App 实现自动保存即可，文件版本的控制会有框架来做，不需要开发者过多参与。

对于 NSDocument based 的 Mac App 来说，要实现文件自动保存，一般情况下，只需要在 NSDocument 的子类中实现以下方法就行了：

+ (BOOL)autosavesInPlace {
    return YES:
}

当然，这是在 Mac App 中，是以 NSDocument 提供的诸如 - (NSData *)dataOfType:(NSString *)typeName error:(NSError **)outError 或者 - (NSFileWrapper *)fileWrapperOfType:(NSString *)typeName error:(NSError **)outError 来保存文件内容为基础，而不是自己去实现写文件内容到磁盘，那样的话就算有 autosaveInPlace 也是不行的。

另外，同样需要使用 - (BOOL)readFromURL:(NSURL *)absoluteURL ofType:(NSString *)typeName error:(NSError **)outError 等 NSDocument 提供的 API 来获取内容。

另外，在 NSWindowDelegate 也有一些新的方法，可以控制程序在浏览文件的以往版本时，控制程序窗口的样式，例如大小，设置控件的状态等。例如，在默认情况下，浏览文件以往版本会改变当前文档窗口的大小，而如果不想修改文档窗口大小，只是缩放显示的话，可以在 window:willResizeForVersionBrowserWithMaxPreferredSize:maxAllowedSize: 方法中指定窗口要变化到的目标大小：

- (NSSize)window:(NSWindow *)window willResizeForVersionBrowserWithMaxPreferredSize:(NSSize)maxPreferredFrameSize maxAllowedSize:(NSSize)maxAllowedFrameSize {
    NSSize winSize = [window frame].size;
    return winSize;
}

NSWindowDelegate 的 Managing Presentation in Version Browsers 一节中，还有另外一个 delegate 方法，可以得知当前文档窗口正在进入版本浏览，或者退出版本浏览等状态，从而可以设置界面控件，将一些无关的界面元素隐藏，使用户可以更加清晰的观察到文件不同版本之间的差别。

要实现文件版本控制的支持，开发者并没有很多工作需要做，多数功能已经由框架实现。

参考资料

• Implementing the Full-Screen Experience
• What’s New for Developers in Mac OS X Lion (Part 1)

– EOF –

Read more »]]>

在之前，我使用 ShellExecute 这个 API 来执行命令（《REALbasic 中使用 ShellExecute 执行命令》），然后通过这个方法来停止某个服务，但是今天想加服务运行状态检测，这样就可以在服务没有运行的情况下不再询问用户是否需要停止某个服务。

为了省事，我一开始决定同样使用 cmd 去执行一个命令，将服务状态输出到一个临时文件中，再通过读取这个临时文件，查找特征字符串来判断服务是否运行：

// 伪代码
ShellExecute("cmd.exe /c sc query service_name > tmpfile")
dim serviceStatus as string
serviceStatus = TextInputStream.Open(tmpfile).ReadAll()
if instr(serviceStatus, "STOPPED") < 1 then
  // 提示用户是否停止服务
end if

但是这样做不太靠谱，因为 sc 这个命令执行是要时间的，而 ShellExecute 是异步的，这就导致了在调用 ShellExecute 执行完 sc query 之后，临时文件 tmpfile 里并不是马上就有服务状态的内容了。

为了防止这个情况，我再加了一个临时文件内容的检测，如果为空的话，sleep 100ms，再继续读取，如果超过 10 次仍没有内容，直接当作服务正在运行来对待。

// 伪代码
ShellExecute("cmd.exe /c sc query service_name > tmpfile")
dim serviceStatus as string
dim tryCount as integer
while tryCount < 10 and serviceStatus = ""
  tryCount = tryCount + 1
  App.SleepCurrentThread(100)
  serviceStatus = TextInputStream.Open(tmpfile).ReadAll()
 
wend
if instr(serviceStatus, "STOPPED") < 1 then
  // 提示用户是否停止服务
end if

但是这样仍然不能百分百保证正确，于是想到可不可以继续用 win32 api 来做这些，Google 了一下，找到一篇博客[1]，看了之后发现如果只需要停止服务的话，还是蛮简单的，决定使用 win32 api 来实现我想要的功能了。

在停止服务这个过程中需要用到的 win32 api 有：OpenSCManagerW、OpenServiceW、QueryServiceStatus、ControlService，还有一个结构体：SERVICE_STATUS。

win32 api 的参数都很好对应，数值、句柄类型的参数直接使用 Integer 即可，字符串类型使用 CString，而 SERVICE_STATUS 这个结构体也可以直接通过工程菜单添加。

在传参的时候需要注意两点：

1. 如果是字符串类型的参数并且调用的接口是 Unicode 类型的，那么需要在传入参数之前，将参数值转换为 Unicode 编码。可以通过 ConvertEncoding(text, Encodings.UTF16) 来转换。
2. 如果参数是结构体，那么参数前的传参方式就要写 ByRef，也就是按引用传值，字符串和数值类型的参数可以不写或者写 ByVal。

以下是 4 个 win32 api 的 REALbasic 定义：

soft declare function OpenSCManagerW Lib "advapi32.dll" _
(ByVal lpMachineName As CString, ByVal lpDatabaseName As CString, _
ByVal dwDesiredAccess As Integer) As Integer
 
soft declare function OpenServiceW lib "advapi32.dll" _
(ByVal hSCManager As Integer, ByVal lpServiceName As CString, _
ByVal dwDesiredAccess As Integer) As Integer
 
soft declare function QueryServiceStatus lib "advapi32.dll" _
(byval hService as integer, byref lpServiceStatus as SERVICE_STATUS) _
as boolean
 
soft declare function ControlService lib "advapi32.dll" _
(byval hService as integer, byval dwControl as integer, _
byref lpServiceStatus as SERVICE_STATUS) as boolean

有了 api 定义之后，就可以直接根据上面提到的 vc++ 流程来停止某个服务了。

完整的服务操作 api 可以参阅微软的 MSDN。

这样看来，REALbasic 要写出支持 Windows 7 特性的应用程序也不是难事：）

参数资料

1. VC++启动和停止服务, huangchonghai
2. QueryServiceStatus, MSDN

Read more »]]>

在 REALbasic 中，如果需要执行 cmd 命令，可以直接使用 Shell 类，但是这样的话，编译成 Windows 程序时会额外需要一个 Shell.dll 的动态链接库，这对于我这样的 1exe 爱好者是不能忍受的。但是对于 Mac OS X 和 Linux 的生成目标来说，是不存在这个问题的，因为 Mac OS X 的应用程序本身就是一个文件夹，而 Linux 的目标不会生成额外的链接库。因此，需要针对 Windows 进行特殊处理。于是在网上搜索解决方案，找到了 VB 中执行程序的几种方法：

1. 使用 CreateProcess

通过 CreateProcess 以及使用管道，可以执行外部程序并获取输出，但是这个方法过于烦琐，并且我也不需要外部进程执行完毕后的输出结果，因此不采用。

2. 使用 Shell 方法

VB 里有一个 Shell 方法，但是在 RB 中并没有，所以此路不通。

3. 使用 ShellExecute

这个方法同样是一个系统 API，可以直接通过 RB 的 declare 声明并调用它，在测试之后，使用 declare 来使用系统 API 不会生成额外的 dll，正是我需要的。

首先在 RB 的某个模块中添加一个方法 ShellExecute，用来封装对系统 API 的请求：

function ShellExecute(hWnd as Integer, lpOperation as String, _ lpFile as String, lpParameters as String, lpDirectory as String, nShowCmd as Integer)

注意，在 RB 中添加方法时，参数列表中的 _ 需要去掉，这里是为了排版的需要而加上的。

这个 API 是定义在 shell32.dll 中的，在 ShellExecute 方法中先需要声明：

soft declare function ShellExecuteA Lib ”shell32.dll” _ (ByVal hWnd As Integer, ByVal lpOperation As CString, _ ByVal lpFile As CString, ByVal lpParameters As CString, _ ByVal lpDirectory As CString, ByVal nShowCmd As Integer) As Integer soft declare function ShellExecuteW Lib ”shell32.dll” _ (ByVal hWnd As Integer, ByVal lpOperation As CString, _ ByVal lpFile As CString, ByVal lpParameters As CString, _ ByVal lpDirectory As CString, ByVal nShowCmd As Integer) As Integer

然后来调用这个 API：

  dim ret as Integer
    Try
      ret = ShellExecuteW(hWnd, ConvertEncoding(lpOperation, Encodings.UTF16), _
      ConvertEncoding(lpFile, Encodings.UTF16), _
      ConvertEncoding(lpParameters, Encodings.UTF16), _
      ConvertEncoding(lpDirectory, Encodings.UTF16), nShowCmd)
    Catch
      ret = ShellExecuteA(hWnd, lpOperation, lpFile, lpParameters, lpDirectory, nShowCmd)
    End
    return ret

把 ShellExecuteW 放在 Try … Catch 中是为了兼容的需要，因为像 Windows 98 这样比较老的系统中，系统内部编码还不是 Unicode，还没有 ShellExecuteW 这样结尾是 W 的 API。

另外，因为 RB 内部是使用的 UTF-8 编码，而系统 API ShellExecuteW 使用的编码是 Unicode，所以参数在传递前需要进行转码，将字符串参数值转换为 Unicode 编码，否则在执行一个明明正确的命令时，会出现“找不到文件”的错误。

好了，这样就可以使用 ShellExecute 方法来执行外部程序了，例如：

  #if TargetWin32
    dim ret as Integer
    ret = Win32Helper.ShellExecute(hWnd, "open", "cmd.exe", _
    "/c shutdown -t 10", "", 0)
  #endif

上面的代码就调用 cmd.exe 执行了命令 shutdown -s -t 10，也就是 10 秒后关机。

其实这个方法也可以用来打开文档或者网址，具体的用法可以去 MSDN 找一找。

当然，如果不在乎生成的 Windows 目标还有额外的 dll 的话，完全可以使用 RB 自带的 Shell 类，功能也强上不少。

Read more »]]>

要写一个程序，涉及到缩略图的问题，原先准备用StretchBlt来实现的，后来找了下发现PictureBox的PaintPicture方法 也可以把图像按规定大小进行缩放，试了一下感觉PaintPicture的速度比StretchBlt快一些。

PaintPicture的 函数定义为：

Sub PaintPicture(Picture As IPictureDisp, X1 As Single, Y1 As Single, [Width1], [Height1], [X2], [Y2], [Width2], [Height2], [Opcode])

X1 和Y1是目标位置，Width1和Height1是目标大小，默认是PictureBox的大小，X2和Y2是源位置，Width2和Height2是源 大小，Opcode是操作方式，默认应该是vbSrcCopy，如果Width1、Height1和Width2、Height2的大小不一样则进行缩 放。

新建一个工程，设置Form1的ScaleMode为“3 - Pixel”，往窗体上放1个FileListBox控件名称为 File1，1个ImageList控件名称为ImageList1，2个PictureBox控件，一个名称为Picture1，AutoResize 为True，Visible为False，另外一个名称为Picture2，AutoRedraw为True，Visible为False，Width和 Height为128，1个ListView控件名称为ListView1，将图像列表中普通设置为ImageList1。

在窗体里添加如 下代码：

‘ 窗体载入时载入图像列表

Private Sub Form_Load()

Dim i As Long

For i = 0 To File1.ListCount – 1

‘ 载入图像

Picture1.Picture = LoadPicture(File1.Path & “\” & File1.List(i))

‘ 生成缩略图

Picture2.PaintPicture Picture1.Picture, 0, 0

‘ 添加缩略图到ImageList

ImageList1.ListImages.Add , , Picture2.Image

‘ 添加缩略图到ListView

ListView1.ListItems.Add , , File1.List(i), i + 1

DoEvents

Next

End Sub

‘ 窗体改变大小时改变ListView的大小

Private Sub Form_Resize()

With ListView1

.Top = 0

.Left = 0

.Width = Me.ScaleWidth

.Height = Me.ScaleHeight

End With

End Sub

Read more »]]>

前天在PConline下了一个孙鑫的《Java从入门到精通》的视频教程，Flash格式，在看的时候感觉很不爽，每一课开始的时候有一大段广 告，而且前面的一部分颇为啰嗦，讲了乱七八糟的东西，不知道是不是因为“入门”的关系，然后就把以前做的一个Flash播放器找出来，直接跳到自己要看的 地方～

要想用VB做一个自己的Flash播放器还是比较方便的，因为Macromedia已经提供了Shockwave Flash控件， 可以方便来的播放Flash影片。要想使用这个控件，首先要在工程里添加这个控件，选中菜单“工程->部件”，找到 Shockwave Flash，打上勾，确定就可以了。另外，因为要加载Flash影片，所以我们还需要加入对话框控件 Microsoft Common Dialog Control。

做这个Flash播放器之前，先用对象浏览器来看一下 Shockwave Flash控件有哪些我们需要的事件、方法和属性。

因为我们做的Flash播放器比较简单，所以没有可以利用的控件事 件。

方法：

Sub Back()

跳 到前一帧，相当于Flash右键菜单中的快退

Function CurrentFrame() As Long

获 取当前播放的为第几帧

Sub Forward()

跳到后一帧，相当于Flash 右键菜单中的快进

Sub GotoFrame(FrameNum As Long)

跳 到指定帧，这是一个相当有用的方法，也是要做这个Flash播放器的理由之一了

Sub Play()

播 放，相当于Flash中的播放

Sub Stop()

停止，需要注意的是这个是停 止，而不是暂停，停止后再开始播放将从第1帧开始

Sub StopPlay()

暂 停，暂停后再播放是继续暂停之前的状态

属性：

Property Movie As String

影 片路径，用来加载要播放的Flash影片

Property Playing As Boolean

是 否正在播放

TotalFrames

Flash影片的总帧数

好了， 有了这些资料就可以开始写自己的Flash播放了～

打开窗体编辑器，先在窗体添加5个按钮，名称和Caption分别 为：cmdOpen(“打开”)，cmdPlay(“播放”)，cmdStop(“停止”)，cmdPrev(“前一帧”)，cmdNext(“后一 帧”)。为了能快整跳转，再添加一个水平滚动条，名称为hslFrame。当然，最重要的，Shockwave Flash不能少了，也要添加，名称为 swf。再者要打开文件，所以添加一个Microsoft Common Dialog Control，名称为dlg。

完成窗体的设计，开始编写代码。

‘ 先给打开按钮添加过程 Private Sub cmdOpen_Click() dlg.Filter = ”Flash(*.swf)|*.swf”  ’ 设 置文件名过滤器，只显示Flash文件 dlg.ShowOpen If dlg.FileName = ”" Then Exit Sub ’ 如 果用户点了取消则退出处理 swf.Movie = dlg.FileName           ’ 加载影片 hslFrame.Max = swf.TotalFrames     ’ 获 取总帧数，并赋值给滚动条的最大值 End Sub ‘ 接着是播放按钮 Private Sub cmdPlay_Click() If swf.Playing = True Then   ’ 如 果正在播放则暂停 swf.StopPlay cmdPlay.Caption = ”播 放” ’ 按钮文本设置为“播放” Else swf.Play                 ’ 否 则就继续播放 cmdPlay.Caption = ”暂停” ’ 按钮文本设置为“暂停” End If End Sub ‘ 停 止按钮 Private Sub cmdStop_Click() swf.Stop  ’ 停止 End Sub ‘ 前 一帧按钮 Private Sub cmdPrev_Click() swf.Back End Sub ‘ 后 一帧按钮 Private Sub cmdNext_Click() swf.Forward End Sub ‘ 为 了可以拖动滚动条来进行播放，下面处理hslFrame的OnChange事件 Private Sub hslFrame_Change() swf.GotoFrame hslFrame.Value  ’ 跳 到滚动条值所在的帧 End Sub

好了，一个简单的Flahs播放器就做好了，当然你也可以在这个此基础上加上更多的功能。

Read more »]]>

Read more »]]>

根据点睛工作室的多线程类改写的，不过没有经过严格测试，好像工作不是很稳定，如果使用不当会出错的说。

Option Explicit

Private Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Long

End Type

Private Declare Function CreateThread Lib “kernel32″ (lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

Private Declare Function CreateThreadL Lib “kernel32″ Alias “CreateThread” (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

Private Declare Function TerminateThread Lib “kernel32″ (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

Private Declare Function SetThreadPriority Lib “kernel32″ (ByVal hThread As Long, ByVal nPriority As Long) As Long

Private Declare Function GetThreadPriority Lib “kernel32″ (ByVal hThread As Long) As Long

Private Declare Function ResumeThread Lib “kernel32″ (ByVal hThread As Long) As Long

Private Declare Function SuspendThread Lib “kernel32″ (ByVal hThread As Long) As Long

Private Declare Function GetCurrentThread Lib “kernel32″ () As Long

Private Declare Function GetCurrentThreadId Lib “kernel32″ () As Long

Private Declare Sub ExitThread Lib “kernel32″ (Optional ByVal dwExitCode As Long = 0)

Private Declare Function GetLastError Lib “kernel32″ () As Long

‘ 常数常量

Private Const MAXLONG = &H7FFFFFFF

‘ 线程优先级常量

Private Const THREAD_BASE_PRIORITY_IDLE = -15

Private Const THREAD_BASE_PRIORITY_LOWRT = 15

Private Const THREAD_BASE_PRIORITY_MAX = 2

Private Const THREAD_BASE_PRIORITY_MIN = -2

Private Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX

Private Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE

Private Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN

Private Const THREAD_PRIORITY_NORMAL = 0

Private Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT

Private Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST – 1)

Private Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)

Private Const THREAD_PRIORITY_ERROR_RETURN = (MAXLONG)

‘ 线程创建标志

Private Const CREATE_ALWAYS = 2

Private Const CREATE_NEW = 1

Private Const CREATE_NEW_CONSOLE = &H10

Private Const CREATE_NEW_PROCESS_GROUP = &H200

Private Const CREATE_NO_WINDOW = &H8000000

Private Const CREATE_PROCESS_DEBUG_EVENT = 3

Private Const CREATE_SUSPENDED = &H4

Private Const CREATE_THREAD_DEBUG_EVENT = 2

‘ 线程优先级结构

Public Enum ThreadPriority

Lowest = THREAD_PRIORITY_LOWEST

BelowNormal = THREAD_PRIORITY_BELOW_NORMAL

Normal = THREAD_PRIORITY_NORMAL

AboveNormal = THREAD_PRIORITY_ABOVE_NORMAL

Highest = THREAD_PRIORITY_HIGHEST

End Enum

Private mAttrib As SECURITY_ATTRIBUTES

Private mEnabled As Boolean

Private mThreadHandle As Long

Private mThreadID As Long

Private mTerminate As Boolean

Public Property Get ThreadID() As Long

ThreadID = mThreadID

End Property

Public Property Get ThreadHandle() As Long

ThreadHandle = mThreadHandle

End Property

Public Function Create(ByVal cFunction As Long, Optional ByVal cPriority As ThreadPriority, Optional ByVal cEnabled As Boolean = True) As Long

Dim CreateFlag As Long

If mThreadHandle <> 0 Then TerminateMe

mEnabled = cEnabled

If mEnabled Then

CreateFlag = CREATE_NEW

Else

CreateFlag = CREATE_SUSPENDED

End If

mAttrib.nLength = Len(mAttrib)

mThreadHandle = CreateThreadL(0, 0, cFunction, 0&, CreateFlag, mThreadID)

If mThreadHandle = 0 Then

MsgBox “Create thread failed!Error code:” & GetLastError, vbOKOnly Or vbCritical, “Error”

End If

End Function

Public Sub SuspendMe()

If mThreadHandle = 0 Or mEnabled = False Then Exit Sub

If SuspendThread(mThreadHandle) <> -1 Then

mEnabled = False

Else

MsgBox “Suspend thread failed!Error code:” & GetLastError, vbOKOnly Or vbCritical, “Error”

End If

End Sub

Public Sub ResumeMe()

If mThreadHandle = 0 Or mEnabled = True Then Exit Sub

If ResumeThread(mThreadHandle) <> -1 Then

mEnabled = True

Else

MsgBox “Resume thread failed!Error code:” & GetLastError, vbOKOnly Or vbCritical, “Error”

End If

End Sub

Public Sub TerminateMe()

If mThreadHandle = 0 Then Exit Sub

TerminateThread mThreadHandle, 0

mThreadHandle = 0

‘mTerminate = True

‘Do

‘    DoEvents

‘Loop Until mTerminate

End Sub

Private Sub Class_Terminate()

‘TerminateThread mThreadHandle, 0

End Sub

Read more »]]>

不管是在系统开发还是在平时的编程当中，字符串操作都是很重要的一部分。在C中，已经有库提供了strcpy、strcmp、strcat等函数， 而在开发用汇编开发自己的系统时，并没有现在的库可用，这就要求我们自己来实现字符串操作了。以下如果没有特别说明，字符串均以0为结束标志。

strcpy 字 符串复制

在字符串复制当中，为了简便，可以像在C中一样，不考虑边界问题，把这个问题交调用者，不过这样就有可能产生缓冲区溢出 了：）字符串复制还是比较容易实现的，只要在复制每一个字节之前判断是不是0，如果是就结束，不是则继续复制下一个字节。我给出一个简单的例子，当然，你 可以把它优化以产生更好的性能。

strcpy:

; in  si 源字符串起始地址

;     di 目标地 址

; out 无

push si

push di  ; 保护寄存器

next:

lodsb    ; 载 入一个字节

or al,al  ; 是0吗？

je end  ; 是则结束

stosb   ; 不 是则放入目标中

jmp next ; 继续下一个字节

end:

mov [di],byte 0  ; 结 束标志

pop di  ; 恢复寄存器

pop si

ret

strlen 取 字符串长度

应该说，这一个比上一个容易，因为这个只需要考虑什么结束，而不需要去复制字节。

strlen:

; in si 源 字符串

; out ax 字符串长度

push si

push cx    ; 保护寄存器

xor cx,cx  ; 计 数器清零

next:

lodsb       ; 载入一个字节

or al,al     ; 是0？

je end     ; 是 则结束

inc cx      ; 字符串长度＋1

jmp next ; 继续下一个字节

end:

mov ax,cx ; 将 字符串长度放到AX中作为返回值

pop bx     ; 恢复寄存器

pop si

ret

strcat 字 符串连接

就个人来说，字符串连接用得并不是很多，但既然在C中有这个函数，就必然有它存在的理由，所以我们还是有必要来实现它的。 同样的，在字符串连接时不考虑目标缓冲区是否足够的问题，把这个交给调用者。

要将一个字符串连接到另一个字符之后，就需要先找出目 标字符串的结尾，即0的地址，然后就可以把这个地址做为目标，把需要连接的字符串的首地址做为源，调用strcpy即可完成。而找出0的地址，原理和取字 符串长度一样，载入一个字节然后判断是否为0。这个留大家自己去实现。

上面的例子使用的寄存器都是16位的，所以只能用在16位的 程序当中，当然，如果是你自己写的，那么自己懂得它实现的原理，移植到32位就是件很容易的事。

今天这篇就到这里喽～～难得写教 程之类的文章，今天还算顺手^-^～～