http://www.purebasic.com
https://www.purebasic.fr/english/
Intrigued wrote:The application now crashes on me at times, when it begins Start Monitoring activities. And, it's not sensitive enough still.
a great bug (using imageId() instead of #image)
, any idea? )Code: Select all
#FTPServer=0
#UserName=1
#Password=2
#FileNameGet=3
#FileNameSend=4
#txt1=5
#txt2=6
#txt3=7
#txt4=8
#txt5=9
#Info=10
#Send=11
#File=12
#INTERNET_SERVICE_FTP=1
#INTERNET_OPEN_TYPE_DIRECT=1
#INTERNET_SERVICE_PASSIVE=$8000000
#FTP_PORT=21
#FTP_TRANSFER_ASCII=1
#FTP_TRANSFER_BINARY=2
hWnd=OpenWindow(#Info,(GetSystemMetrics_(#SM_CXSCREEN)-200)/2,(GetSystemMetrics_(#SM_CYSCREEN)-180)/2,200,250,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar,"FTP - Upload")
If hWnd=0 Or CreateGadgetList(hWnd)=0:End:EndIf
TextGadget(#txt1,10,10,180,20,"FTP Server:")
TextGadget(#txt2,10,50,180,20,"User Name:")
TextGadget(#txt3,10,90,180,20,"Password:")
TextGadget(#txt4,10,130,180,20,"File Name:")
TextGadget(#txt5,10,170,180,20,"Location + File Name:")
StringGadget(#FTPServer,10,25,180,20,"")
StringGadget(#UserName,10,65,180,20,"")
StringGadget(#Password,10,105,180,20,"")
StringGadget(#FileNameGet,10,145,158,20,"")
StringGadget(#FileNameSend,10,185,180,20,"")
ButtonGadget(#File,168,144,22,22,"...")
ButtonGadget(#Send,75,215,50,22,"Send")
Repeat
EventID = WaitWindowEvent()
If EventID=#PB_EventGadget
Select EventGadgetID()
Case #File
file$=OpenFileRequester("Select File","","All Files (*.*)|*.*",0)
SetGadgetText(#FileNameGet,file$)
Case #Send
ServerName.s=GetGadgetText(#FTPServer)
UserName.s=GetGadgetText(#UserName)
Password.s=GetGadgetText(#Password)
localfile.s=GetGadgetText(#FileNameGet)
remotefile.s=GetGadgetText(#FileNameSend)
hInternet=InternetOpen_("FTP",#INTERNET_OPEN_TYPE_DIRECT,Proxy,ProxyBypass,0)
If hInternet
hConnect=InternetConnect_(hInternet,ServerName,#FTP_PORT,UserName,Password,#INTERNET_SERVICE_FTP,#INTERNET_SERVICE_PASSIVE,0)
If hConnect
If FtpPutFile_(hConnect,localfile,remotefile,#FTP_TRANSFER_BINARY,0)
MessageRequester("","File has been sent",0)
EndIf
InternetCloseHandle_(hConnect)
InternetCloseHandle_(hInternet)
EndIf
EndIf
EndSelect
EndIf
Until EventID=#PB_EventCloseWindow
End 
Making such application is easy.. making it right isnt, hope you get to something in-between at least, else I wouldnt buy it.(Contains an unusual runtime compression tool (PCK/YodaProt). Please verify the origin of the file)
I use Yoda Protector from http://yodap.has.it/ to make the EXE smaller.dagcrack wrote:what exe packer are you using? I get my antivirus to popup all the time... Why are you compressing the exe with a weird algorithm??? ¬¬ or what else is in there..
Making such application is easy.. making it right isnt, hope you get to something in-between at least, else I wouldnt buy it.(Contains an unusual runtime compression tool (PCK/YodaProt). Please verify the origin of the file)
By the way.. why is it taking my entire processor cycles...? You really dont need to spend all the processor on such thing, just hope you get to programm a good event loop with out hogging the CPU for nothing... tsk tsk, multi threading wouldnt hurt also.
)Intrigued wrote:What it's doing (or not doing more specifically) is that the video shows up fine when the CAM is on. It's the captures that are not happening. I also do not see those icons (images) you had to signify that a capture was happening and I did the default settings and then tried several configuration combonations to no avail. It still would not capture an image.
Can you can say me what OS your use? and the graphic card bits (16 or 32)?.
I don't understand it. I have same graphic card and number of bits. )I understand, np.zikitrake wrote:
I'll try to find a solution for it. Sorry for inconvenences (and for my bad english
