求助：VB to Delphi __ 送分啦 ( 积分: 50 )

1.&nbsp;<br>Public&nbsp;Declare&nbsp;Function&nbsp;DlPortReadPortUlong&nbsp;Lib&nbsp;&quot;dlportio.dll&quot;&nbsp;(ByVal&nbsp;Port&nbsp;As&nbsp;Long)&nbsp;As&nbsp;Long<br><br>Public&nbsp;Declare&nbsp;Sub&nbsp;DlPortReadPortBufferUchar&nbsp;Lib&nbsp;&quot;dlportio.dll&quot;&nbsp;(ByVal&nbsp;Port&nbsp;As&nbsp;Long,&nbsp;Buffer&nbsp;As&nbsp;Any,&nbsp;ByVal&nbsp;Count&nbsp;As&nbsp;Long)<br><br>2.&nbsp;<br>Public&nbsp;Sub&nbsp;CODECONV(SSTR&nbsp;As&nbsp;String,&nbsp;XPLEN&nbsp;As&nbsp;Integer)<br>&nbsp;&nbsp;&nbsp;&nbsp;'****************************************<br>&nbsp;&nbsp;&nbsp;&nbsp;ttext&nbsp;=&nbsp;StrConv(SSTR,&nbsp;128)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;SLEN&nbsp;=&nbsp;LenB(ttext)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;SLEN&nbsp;&gt;&nbsp;0&nbsp;Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;SLEN&nbsp;&gt;=&nbsp;XPLEN&nbsp;Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XTEXT&nbsp;=&nbsp;ttext&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'****************************************<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SSTR&nbsp;=&nbsp;&quot;&nbsp;&quot;&nbsp;&amp;&nbsp;SSTR<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ttext&nbsp;=&nbsp;StrConv(SSTR,&nbsp;128)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SLEN&nbsp;=&nbsp;LenB(ttext)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;SLEN&nbsp;&lt;&nbsp;XPLEN&nbsp;Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SSTR&nbsp;=&nbsp;SSTR&nbsp;&amp;&nbsp;&quot;&nbsp;&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ttext&nbsp;=&nbsp;StrConv(SSTR,&nbsp;128)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SLEN&nbsp;=&nbsp;LenB(ttext)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop&nbsp;Until&nbsp;SLEN&nbsp;&gt;=&nbsp;XPLEN<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XTEXT&nbsp;=&nbsp;ttext<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If<br>&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;XTEXT&nbsp;=&nbsp;ttext<br>&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If<br>End&nbsp;Sub<br><br>3.<br>&nbsp;&nbsp;&nbsp;&nbsp;FORM1.HORPIC(0).Width&nbsp;=&nbsp;FORM1.Width<br>&nbsp;&nbsp;&nbsp;&nbsp;FORM1.VERPIC(0).Height&nbsp;=&nbsp;FORM1.Height<br>&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Val(sGetINI('a.ini',&nbsp;&quot;strHH&quot;,&nbsp;&quot;HHBB&quot;,&nbsp;AppPath))&nbsp;=&nbsp;0&nbsp;Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;I&nbsp;=&nbsp;1&nbsp;To&nbsp;31<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Unload&nbsp;FORM1.VERPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp;I<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;YDLT&nbsp;=&nbsp;(FORM1.Picture1.Width&nbsp;-&nbsp;2)&nbsp;/&nbsp;XDOTS<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XDLT&nbsp;=&nbsp;(FORM1.Picture1.Height&nbsp;-&nbsp;2)&nbsp;/&nbsp;YDOTS<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;I&nbsp;=&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Load&nbsp;FORM1.HORPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;FORM1.HORPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Top&nbsp;=&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Left&nbsp;=&nbsp;0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Height&nbsp;=&nbsp;XDLT&nbsp;/&nbsp;4<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Width&nbsp;=&nbsp;FORM1.HORPIC(I).Width<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.ZOrder&nbsp;(0)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;With<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FORM1.HORPIC(I).Visible&nbsp;=&nbsp;True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;I&nbsp;=&nbsp;2&nbsp;To&nbsp;YDOTS&nbsp;'&nbsp;+&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Load&nbsp;FORM1.HORPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;FORM1.HORPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Top&nbsp;=&nbsp;((I&nbsp;-&nbsp;2)&nbsp;+&nbsp;3&nbsp;/&nbsp;4)&nbsp;*&nbsp;XDLT&nbsp;+&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Left&nbsp;=&nbsp;0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Height&nbsp;=&nbsp;XDLT&nbsp;/&nbsp;2<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Width&nbsp;=&nbsp;FORM1.HORPIC(I).Width<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.ZOrder&nbsp;(0)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;With<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FORM1.HORPIC(I).Visible&nbsp;=&nbsp;True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp;I<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Load&nbsp;FORM1.HORPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;FORM1.HORPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Top&nbsp;=&nbsp;((I&nbsp;-&nbsp;2)&nbsp;+&nbsp;3&nbsp;/&nbsp;4)&nbsp;*&nbsp;XDLT&nbsp;+&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Left&nbsp;=&nbsp;0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Height&nbsp;=&nbsp;XDLT&nbsp;/&nbsp;4<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Width&nbsp;=&nbsp;FORM1.HORPIC(I).Width<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.ZOrder&nbsp;(0)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;With<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FORM1.HORPIC(I).Visible&nbsp;=&nbsp;True<br>&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;I&nbsp;=&nbsp;1&nbsp;To&nbsp;31<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Unload&nbsp;FORM1.HORPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp;I<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XDLT&nbsp;=&nbsp;(FORM1.Picture1.Width&nbsp;-&nbsp;2)&nbsp;/&nbsp;YDOTS<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;YDLT&nbsp;=&nbsp;(FORM1.Picture1.Width&nbsp;-&nbsp;2)&nbsp;/&nbsp;XDOTS<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;I&nbsp;=&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Load&nbsp;FORM1.VERPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;FORM1.VERPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Top&nbsp;=&nbsp;0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Left&nbsp;=&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Width&nbsp;=&nbsp;XDLT&nbsp;/&nbsp;4<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Height&nbsp;=&nbsp;FORM1.VERPIC(I).Height<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.ZOrder&nbsp;(0)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;With<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FORM1.VERPIC(I).Visible&nbsp;=&nbsp;True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;I&nbsp;=&nbsp;2&nbsp;To&nbsp;YDOTS<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Load&nbsp;FORM1.VERPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;FORM1.VERPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Left&nbsp;=&nbsp;((I&nbsp;-&nbsp;2)&nbsp;+&nbsp;3&nbsp;/&nbsp;4)&nbsp;*&nbsp;XDLT&nbsp;+&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Top&nbsp;=&nbsp;0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Width&nbsp;=&nbsp;XDLT&nbsp;/&nbsp;2<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Height&nbsp;=&nbsp;FORM1.VERPIC(I).Height<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.ZOrder&nbsp;(0)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;With<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FORM1.VERPIC(I).Visible&nbsp;=&nbsp;True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp;I<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Load&nbsp;FORM1.VERPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With&nbsp;FORM1.VERPIC(I)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Left&nbsp;=&nbsp;((I&nbsp;-&nbsp;2)&nbsp;+&nbsp;3&nbsp;/&nbsp;4)&nbsp;*&nbsp;XDLT&nbsp;+&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Top&nbsp;=&nbsp;0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Width&nbsp;=&nbsp;XDLT&nbsp;/&nbsp;4<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Height&nbsp;=&nbsp;FORM1.VERPIC(I).Height<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.ZOrder&nbsp;(0)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;With<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FORM1.VERPIC(I).Visible&nbsp;=&nbsp;True<br>&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If<br>&nbsp;&nbsp;&nbsp;&nbsp;<br>4.<br>&nbsp;&nbsp;SourceDC&nbsp;=&nbsp;CreateDC(&quot;DISPLAY&quot;,&nbsp;0,&nbsp;0,&nbsp;0)<br>&nbsp;&nbsp;DestDC&nbsp;=&nbsp;CreateCompatibleDC(SourceDC)<br>&nbsp;&nbsp;Bhandle&nbsp;=&nbsp;CreateCompatibleBitmap(SourceDC,&nbsp;FORM2.Width&nbsp;/&nbsp;Screen.TwipsPerPixelX,&nbsp;FORM2.Height&nbsp;/&nbsp;Screen.TwipsPerPixelY)<br>&nbsp;&nbsp;SelectObject&nbsp;DestDC,&nbsp;Bhandle<br>&nbsp;&nbsp;BitBlt&nbsp;DestDC,&nbsp;0,&nbsp;0,&nbsp;FORM2.Width&nbsp;/&nbsp;Screen.TwipsPerPixelX,&nbsp;FORM2.Height&nbsp;/&nbsp;Screen.TwipsPerPixelY,&nbsp;SourceDC,&nbsp;FORM2.Left&nbsp;/&nbsp;Screen.TwipsPerPixelX,&nbsp;FORM2.Top&nbsp;/&nbsp;Screen.TwipsPerPixelY,&nbsp;&amp;HCC0020<br>&nbsp;&nbsp;Wnd&nbsp;=&nbsp;Screen.ActiveForm.hwnd<br>&nbsp;&nbsp;OpenClipboard&nbsp;Wnd<br>&nbsp;&nbsp;EmptyClipboard<br>&nbsp;&nbsp;SetClipboardData&nbsp;2,&nbsp;Bhandle<br>&nbsp;&nbsp;CloseClipboard<br>&nbsp;&nbsp;DeleteDC&nbsp;DestDC<br>&nbsp;&nbsp;ReleaseDC&nbsp;Dhandle,&nbsp;SourceDC<br>&nbsp;&nbsp;FORM1.Picture1.Picture&nbsp;=&nbsp;Clipboard.GetData()<br><br>谢谢

??<br><br>1<br>function&nbsp;DlPortReadPortUlong(Port:&nbsp;LongInt):&nbsp;LongInt;&nbsp;stdcall;&nbsp;far&nbsp;&nbsp;external&nbsp;'dlportio.dll';<br><br>procedure&nbsp;DlPortReadPortBufferUchar(Port:&nbsp;LongInt;&nbsp;Buffer:&nbsp;pChar;&nbsp;Count:&nbsp;LongInt);&nbsp;stdcall;&nbsp;far&nbsp;&nbsp;external&nbsp;'dlportio.dll';

有点vb基础和delphi基础都可以看得懂

接受答案了.