找回密码
 加入
搜索
楼主: gto250

关于从内存中载入图片的问题

  [复制链接]
发表于 2009-7-12 19:12:17 | 显示全部楼层
本帖最后由 顽固不化 于 2009-7-12 19:15 编辑
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


UDPStartup()

While 1
        $socket = UDPBind("192.168.1.103", 65532)
        If @error <> 0 Then
                Sleep(200)
        Else
                ExitLoop
        EndIf
WEnd

While 1
        $socket1 = UDPOpen("192.168.1.100", 65532)
        If @error <> 0 Then
                Sleep(200)
        Else
                ExitLoop
        EndIf
WEnd

HotKeySet("{esc}","_Exit")
opt("GUIOnEventMode",1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 800, 600, -1, -1)
$Pic1 = GUICtrlCreatePic("", 0, 0, 800, 600, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

#EndRegion ### END Koda GUI section ###

While 1
        $data = UDPRecv($socket, 90000)
        If $data <> "" Then
                $file = FileOpen("Temp.jpg", 18)
                FileWrite($file, $data)
                FileClose($file)
                GUICtrlSetImage($Pic1,"Temp.jpg")
        EndIf
        Sleep(100)
        rev()
WEnd

Func rev()
        $send = UDPSend($socket1, 'sendpicpls')
EndFunc   ;==>rev

Func _exit()
        Exit
EndFunc
改了一下“接受端”,可是像视频一样收看了。
发表于 2011-12-5 22:48:05 | 显示全部楼层
这个是牛贴,一定要顶
发表于 2012-5-30 21:38:36 | 显示全部楼层
这个传输可以达到每秒中多少帧????如果帧数太少。。
发表于 2013-10-29 14:02:28 | 显示全部楼层
真高端啊!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-17 09:41 , Processed in 0.064889 second(s), 14 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表