Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Topics - Marmor

#101
Herzlichen Glückwunsch !!




da mir so ein youtube video  zu unpersöhnlich ist  habe ich noch eine elektronische grusskarte dazugelegt

!!!!!!!!!!!!  http://dl.dropbox.com/u/4235690/bday.app.zip!!!!!!!!!!!!!!!!    (win32 .exe)

viel spass
#102
some "new" Devices comes now with a cheap Price but beware its coming with a MIPS CPU !

http://www.cect-shop.com/Ainol-Novo-7-Paladin-40-ICS_p1613_x2.htm

I'll guess Glb Programms will not run but i've heard some rumors about a internal wrapper in the device .

What you think about ?
#103
maybe u need a little home automation  or building your own robot ?


http://www.tinkerforge.com/

#104
Whats your solution to running your app on these situation ?
Will you scale your gfx ?

Is it possible to eunumerate the supportet screen resolutions on a mobile devices for the use of setscreen ?


If you write an app with maybe 800x600 setting in project /option   but the device will have only 640x480 or maybe 1024x768 or something bigger (ipad3)  , so how to detect this ?
#108
GLBasic - en / Memory Banks
2012-Jan-09
I know some Inline Code is  the Code Snippets but can we have a Banksystem ala Blitz without Inline   :x

#109
HI ,

Finally  a working Version for Email with Attachment  and SMTP AUTH LOGIN

use this for Spam and u will  >:D


mime is not mine

modifyed version 0.1
added "<" +">" to from and to$  thx Kanonet

Code (glbasic) Select



//                                              EMAIL SYSTEM for GLB  version  0.002

//               IF U USE THIS  CODE FOR SPAMMING OR MAIL BOMBING YOUR ARE A F.....g B.....d                  !!!!!!!!!!!!!!!!!!!!!!!!!!
//
//               IF YOU WILL SEND A MAIL  GIVE THE USER a HINT BECAUSE HE HAVE NO FLATRATE FOR UMTS OR OTHER  !!!!!!!!!!!!!!!!!!!!!!!!!!


//               This Demo use a full Account from Email Provider  "WEB.DE"
//               You can use this to sending emails from GLB  without having a Freemailer
//

//
//               Create your own Account on web.de /gmx.de/ and other Mailsystems with Auth Login
//
//               Send a PN if you need the password for some Test
//               Thx for the base64 function in the GLB Code Forum
//


//               works with Attachments size from 1 byte up to testet 1,7 MB
//               BEWARE   BASE64 WILL BECOME ARROUND 1,35 x Filesize                                                 
//               Big files become much bigger  Sizes !!!
//   











GLOBAL file$="d:/decorator.exe"                  // u need a file for the attachment
GLOBAL sendfile$="dec.exe"                    // attachment name shows  in the mail
GLOBAL size#


size# =GETFILESIZE (file$)





//---------------------------------------------------------------------------------------------------------------------

GLOBAL      to$     =    "powerasm1xyz@gmx.de"                               // Put your own Email ADDY here !!!!!!!!!
GLOBAL      mode    =      1                          // 1 Shows the Serverreply if DEBUGMODE ON
GLOBAL      delay   =     100                                           // Test your own (100 ms run on the most Devices)
GLOBAL      subj$    =   "MAIL from MYGAME Vers: 0.9a "                 // Subject
GLOBAL      mess1$   =   "GLB GAME STARTET at :" +PLATFORMINFO$("time") // Messagestrings
GLOBAL      mess2$   =   "PLATFORM :"+PLATFORMINFO$("")                 //
GLOBAL      mess3$   =   "DEVICE   :"+PLATFORMINFO$("DEVICE")           //
GLOBAL      mess4$   =   "ID       :"+PLATFORMINFO$("ID")               //
GLOBAL      mess5$   =   "Locale   :"+PLATFORMINFO$("LOCALE")           // last  Message



//--------------------------- dont touch this -------------------------------------------------------------------------



GLOBAL      port    =     25                                            // Standard smtp port
GLOBAL      server$ =    "smtp.web.de"                                  // Serveradresse for web.de
GLOBAL      from$   =    "onlyforglb@web.de"                            // EMAIL ADRESS  dont change it !!!!!!!!!
GLOBAL      pass$   =    "coolpassword"                               // Password for Email ADRESS
GLOBAL      LFCR$   =  CHR$(13)+CHR$(10)                                //  0dh +0ah
GLOBAL      socket%                                                     // Socketnumber from TCPCONNECT
GLOBAL       reply$                                                     // needed for the famouse base64encode$ function (THX)

GLOBAL      from64$ = Base64_encode$(from$)                             // we need base64 from sender
GLOBAL      pass64$ = Base64_encode$(pass$)                             // we need base64 from password
GLOBAL      testsize
GLOBAL      zas
GLOBAL      zar   

   
testsize = 90            // this defines the lenght for the sending string  in the attachment  , 90 is the best for not become the "LINE TOO LONG " Error from the provider

                     //
zas  = INTEGER (size#/testsize)   // how offten is 90 in filesize ?
zar  =  MOD (size#,testsize)      // the rest , booth needed for the base64 attachment





//---------------------------------------------------------------------------------------------------------------------



IF SOCK_INIT()=FALSE THEN END                                       // ups

           socket% = SOCK_TCPCONNECT(server$,port)




IF socket%<> -1                                                  // start sending !! BEWARE the correct Order

        SOCK_TCPSEND (socket%, "HELO GLB MAILSYSTEM 0.1 "+LFCR$)
        check()
            SOCK_TCPSEND (socket%, "AUTH LOGIN"+LFCR$)
            check()
            SOCK_TCPSEND (socket%,  from64$+LFCR$)
            check()
            SOCK_TCPSEND (socket%,  pass64$+LFCR$)
            check()
            SOCK_TCPSEND (socket%, "MAIL FROM:<"+from$ +">"+LFCR$)
            check()
            SOCK_TCPSEND (socket%, "RCPT TO:<"+to$  +">"  +LFCR$)
            check()
            SOCK_TCPSEND (socket%, "DATA"+LFCR$)
            SOCK_TCPSEND (socket%, "Subject: "+subj$ +LFCR$)
            check()
            SOCK_TCPSEND (socket%, "X-MAILER:GLB MAIL SYSTEM"+LFCR$)
            check()
            SOCK_TCPSEND (socket%, "X-MSMail-Priority: 1"+LFCR$)
            check()
            SOCK_TCPSEND (socket%, "MIME-Version: 1.0" +LFCR$ )
            check()
            SOCK_TCPSEND (socket%, "Content-Type: multipart/mixed; boundary= --_--=123" +LFCR$)   // mybound ="--_--=123"   !!!
            check()
            SOCK_TCPSEND (socket%, ""+LFCR$)
            check()
            SOCK_TCPSEND (socket%, "--" + "--_--=123"+LFCR$)                                     // startboundary !  add "--" before !                                   
            check()
            SOCK_TCPSEND (socket%, "Content-TYPE: text/plain; charset=us-ascii" +LFCR$)
            check()
            SOCK_TCPSEND (socket%, "Content-Transfer-Encoding: 7bit"+LFCR$)                     // some TEXT is coming
            check()
            SOCK_TCPSEND (socket%, ""+LFCR$)                                                   // start/stop HEADER
   
           

            SOCK_TCPSEND (socket%,  "START OF MESSAGE"+LFCR$)                                   // email plain text

    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,   mess1$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess2$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess3$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess4$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess5$+ LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  "END OF MESSAGE "  +  LFCR$)
            SOCK_TCPSEND (socket%,  "" +LFCR$)
           
           
           
           
         
            SOCK_TCPSEND (socket%, "--"+"--_--=123"+LFCR$)                                             //nextboundary  also add "--" before !!
            SOCK_TCPSEND (socket%, "Content-Type: application/octet-stream; name="+sendfile$ +LFCR$)  // Filename !!
            SOCK_TCPSEND (socket%,  "Content-Transfer-Encoding: base64"+LFCR$)                       // a base64 encoded file is coming   !!
            SOCK_TCPSEND (socket%, ""+LFCR$)                                                        // start /stop HEADER
           

           
// ---  open the file and call the base64 routine    ok i know its better to decode before you call sendmail

            OPENFILE  (1,file$,TRUE)



          FOR r = 1 TO zas                    // remember zas from above ?
       

            READSTR 1, read$, testsize
            read64$ = Base64_encode$(read$)   
            SOCK_TCPSEND (socket%,read64$  +LFCR$)
          NEXT

            READSTR 1, read$, zar             // also zar ??
            read64$ = Base64_encode$(read$)
            SOCK_TCPSEND (socket%,read64$+LFCR$)
            SOCK_TCPSEND (socket%,""+LFCR$ )
           
           CLOSEFILE 1
           
//-------------------------------------------------------------------------------------- end of bad implement ------



      SOCK_TCPSEND (socket%, "--"+"--_--=123" +" --"+LFCR$)                                   //  ENDBOUNDARY !!  add "--" before and after the boundary$    !!
            check()
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    check()
    SOCK_TCPSEND (socket%, "."+LFCR$)                                                // SEND "." as End Marker
    check()
    SOCK_TCPSEND (socket%, "QUIT"+LFCR$)
    check()
    SOCK_CLOSE   (socket%)                                                      //WOOOOT
        ENDIF


END



// GENIUS BASE64 Function
FUNCTION Base64_encode$:source$




LOCAL result$, group$
LOCAL t, n, i, u, ant, pad
LOCAL Base64$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" // Normal


FOR n = 0 TO LEN(source$)-1 STEP 3
t = 0 // temp holder of the three bytes
ant = 3
FOR i = 0 TO 2
u = 0
IF n+i > LEN(source$)-1 // Do we have enough characters left?
DEC ant, 1 // No, remove one byte from result
ELSE
u = ASC(MID$(source$, n+i, 1)) // yes, add it
ENDIF
t = (t*0x100) + u // shift left and add character to temp-group
NEXT
pad = 3-ant // How many characters padding?
group$ = ""
FOR i = 0 TO 3
u = bAND(t, 0x3F) // Single out the bottom 6 bits
t = t / 0x40 // shift right by 6 bits
IF pad > 0
// IF url = FALSE

group$ = "=" + group$ // add padding
// ELSE // or skip if we are encoding for an url
// ENDIF
DEC pad, 1
ELSE
group$ = MID$(Base64$, u, 1) + group$ // add to encoded temp-group
ENDIF
NEXT
result$ = result$ + group$ // add temp-group to final result
NEXT


RETURN result$
ENDFUNCTION



// SIMPLE DELAY and DEBUG Function
FUNCTION check:

SLEEP delay

    IF mode =1
    LOCAL rv% = SOCK_RECV(socket%, reply$, 1024)
        DEBUG  "Recv: " + rv% +" : " +reply$+"\n"
    ENDIF

ENDFUNCTION


#110
HI ,
This Demo shows the login for email accounts with password.
i have created a testaccount on web.de.
If you need the password send me a PN !

gtx
have fun....


show me if it works  :o :o

works with win7
works with hp touchpad webos last version

working SMTP Server
Web.de (Marmor)
GMX.de (Marmor
yahoo (Kanonet)
1&1    (Mentalthink)

- modifyed version 0.1   thx to Kanonet
- added brackets for from /to mail $


Code (glbasic) Select



//  EMAIL SYSTEM for GLB  version  0.001

// This Demo use a full Account from Email Provider  "WEB.DE"
// You can use this to sending emails from GLB  without having a Freemailer
//
// Create your own Account on web.de  and other Mailsystems with SMTP Auth Login
//

// send a PN if you need the password for some Tests

// thx for the base64 function in the GLB Code Forum



//---------------------------------------------------------------------------------------------------------------------

GLOBAL      to$     =    "powerasm1@web.de"                             // Put your own Email ADDY here !!!!!!!!!

GLOBAL      mode    =      1                         // 1 Shows the Serverreply if DEBUGMODE ON
GLOBAL      delay   =     50                                            // Test your own (100 ms run on the most Devices)

GLOBAL      subj$    =   "MAIL from MYGAME Vers: 0.1"                   // Subject
GLOBAL      mess1$   =   "GLB GAME STARTET at :" +PLATFORMINFO$("time") // Messagestrings
GLOBAL      mess2$   =   "PLATFORM :"+PLATFORMINFO$("")                 //
GLOBAL      mess3$   =   "DEVICE   :"+PLATFORMINFO$("DEVICE")           //
GLOBAL      mess4$   =   "ID       :"+PLATFORMINFO$("ID")               //
GLOBAL      mess5$   =   "Locale   :"+PLATFORMINFO$("LOCALE")           // last  Message



//--------------------------- dont touch this -------------------------------------------------------------------------



GLOBAL      port    =     25                                            // Standard smtp port
GLOBAL      server$ =    "smtp.web.de"                                  // Serveradresse for web.de
GLOBAL      from$   =    "onlyforglb@web.de"                            // EMAIL ADRESS  dont change it !!!!!!!!!
GLOBAL      pass$   =    "xyz!?).../hs"                               // Password for Email ADRESS      send PN
GLOBAL      LFCR$   =  CHR$(13)+CHR$(10)                                //  0dh +0ah
GLOBAL      socket%                                                     // Socketnumber from TCPCONNECT
GLOBAL       reply$                                                     // needed for the famouse base64encode$ function (THX)

GLOBAL      from64$ = Base64_encode$(from$)                             // we need base64 from sender
GLOBAL      pass64$ = Base64_encode$(pass$)                             // we need base64 from password

//---------------------------------------------------------------------------------------------------------------------



IF SOCK_INIT()=FALSE THEN END                                       // ups

           socket% = SOCK_TCPCONNECT(server$,port)




IF socket%<> -1                                                  // start sending !! BEWARE the correct Order

        SOCK_TCPSEND (socket%, "HELO GLB MAILSYSTEM 0.1 "+LFCR$)
        check()
            SOCK_TCPSEND (socket%, "AUTH LOGIN"+LFCR$)
            check()
            SOCK_TCPSEND (socket%,  from64$+LFCR$)
            check()
            SOCK_TCPSEND (socket%,  pass64$+LFCR$)
            check()
            SOCK_TCPSEND(socket%,  "MAIL FROM:<"+from$ +">"+LFCR$)
            check()
            SOCK_TCPSEND (socket%, "RCPT TO:<"   +to$ +">"  +LFCR$)
            check()
            SOCK_TCPSEND (socket%, "DATA"+LFCR$)
            check()

            SOCK_TCPSEND (socket%, "TO   :< "    +to$  +">"  +LFCR$)
            check()
            SOCK_TCPSEND (socket%, "Subject: "  +subj$+LFCR$)
            check()
            SOCK_TCPSEND (socket%, "MAILER:  "+"GLB MAIL SYSTEM"+LFCR$)
            check()
SOCK_TCPSEND (socket%,  ""+LFCR$)
   
    SOCK_TCPSEND (socket%,  "START OF MESSAGE"+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    check()
    SOCK_TCPSEND (socket%,   mess1$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess2$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess3$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess4$+ LFCR$)
    SOCK_TCPSEND (socket%,   mess5$+ LFCR$)
    check()    
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    SOCK_TCPSEND (socket%,  "END OF MESSAGE "  +  LFCR$)
    check()
    SOCK_TCPSEND (socket%,  " "+LFCR$)
    check()
    SOCK_TCPSEND (socket%, "."+LFCR$)
    check()
    SOCK_TCPSEND (socket%, "QUIT"+LFCR$)
    SOCK_CLOSE   (socket%)                                                      //WOOOOT
        ENDIF


END



// GENIUS BASE64 Function
FUNCTION Base64_encode$:source$




LOCAL result$, group$
LOCAL t, n, i, u, ant, pad
LOCAL Base64$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" // Normal


FOR n = 0 TO LEN(source$)-1 STEP 3
t = 0 // temp holder of the three bytes
ant = 3
FOR i = 0 TO 2
u = 0
IF n+i > LEN(source$)-1 // Do we have enough characters left?
DEC ant, 1 // No, remove one byte from result
ELSE
u = ASC(MID$(source$, n+i, 1)) // yes, add it
ENDIF
t = (t*0x100) + u // shift left and add character to temp-group
NEXT
pad = 3-ant // How many characters padding?
group$ = ""
FOR i = 0 TO 3
u = bAND(t, 0x3F) // Single out the bottom 6 bits
t = t / 0x40 // shift right by 6 bits
IF pad > 0
// IF url = FALSE

group$ = "=" + group$ // add padding
// ELSE // or skip if we are encoding for an url
// ENDIF
DEC pad, 1
ELSE
group$ = MID$(Base64$, u, 1) + group$ // add to encoded temp-group
ENDIF
NEXT
result$ = result$ + group$ // add temp-group to final result
NEXT


RETURN result$
ENDFUNCTION



// SIMPLE DELAY and DEBUG Function
FUNCTION check:

SLEEP delay

    IF mode =1
    LOCAL rv% = SOCK_RECV(socket%, reply$, 1024)
        DEBUG  "Recv: " + rv% +" : " +reply$+"\n"
    ENDIF

ENDFUNCTION




READY.

#111
 :good:
http://www.myrobotnation.com/


its a toy and expensive but its cool for Kids
#112
I have no Skills , no Time and iam a super Moron so iam offer the Man who make
a usefull version from

Openb3d for IOS or Android or WEBOS



100 Euro

if anyone also in interesst so jump in with a few Bucks.


#113
Off Topic / demoscene
2011-Sep-16
Amazing <3


#114
Anyone sortetd out the way to call the virtual Keyboard in Webos for Glbasic ?
#115
laste night i compiled and transfered some glb test apps to my touchpad   :D
this day i cant  >:D

i installed novacom new , but the touchpad needs an rndis driver so say windows xp ??

i removed and  install novacom new but the same problem

whats wrong

developermodus is on , win show me the content from the touchpad if i press the usb drive button on the TP.
but glb pack and install says allways no device ... :rant:
#116
GLBasic - de / @Hiro
2011-Jul-08
#117
dont buy it , its all crap

my story : i bought a epad for 140 euro from ebay , its called zt180 .
                 after 2 days to search for a method for updating to android 2.2  ,ill give up
why  ?    : its  not a zt180  it is a clone !!!! its a  infotmic v8088 !!!!
                 ordered chicken - get dog !!!!



       
#118
HI,
ich habe mal ein maplet b3d object zu ddd konvertiert.
dabei bleiben aber die texturen und die lightmap auf der strecke .

wie weise ich eine lightmap zu und wo müssen die texturen für das ddd file liegen ?
die texturen habe ich im selben ordner wie das object ?! richtig oder falsch ?

anbei das modell mit einer 256x256 textur  bloss das original hat mehrere texturen




mfg







#119
i've have a fresh installed win 7 here and have a problem with glb.
if i compile the code the compiler use  "q:/compiler/plattform/webos /blibblabblub"
i have no device called "q", looks like the glb:main:path isnt setting right
it compiles but i have no acces to the ipk
hmm...