Jump to content

prospeed


jpam
 Share

Recommended Posts

  • Replies 511
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Posted Images

Hmms get this weard error when i try to run it.

It worked at school but now i try to run it at home and it gave me this:

Toepassing met fout AutoIt3.exe, versie 3.2.10.0, tijdstempel 0x47493eab, module met fout ProSpeed.dll, versie 0.0.0.0, tijdstempel 0x47b748e8, uitzonderingscode 0xc0000005, foutmarge 0x0000ac4c, proces-id 0x59c, starttijd van toepassing 0x01c8724c6255c1e4.

Link to comment
Share on other sites

@Dellairion

need more input

is it from the demo or are u trying the udf ?

updated the first post with newest udf

download link newest prospeed.dll is working again !

Edited by jpam
Link to comment
Share on other sites

I tried the demo, it works if i comment these lines in the FXStars() function:

;$fx1 = InitExtFX($Text)
;Antialiasing($Text, 0, 0, $fx1, -1, 0, 1)
;FreeExtFX($fx1)oÝ÷ Ûú®¢×¥¢¢»aÉb觲֫±«­¢+ØÀÌØíQáÐô
ÉÑáÑ    µÀ àÀÀ°àÀÀ¤oÝ÷ ÙÈZ¢¶ÚºÚ"µÍÌÍÕ^HHÜX]Q^

oÝ÷ ÚØ^·©§ªê-yÊzÚ-+ºÚ"µÍÌÍÙHH[]^
    ÌÍÕ^JBIÌÍÕ^HÜX]Q^

BP[X[[Ê ÌÍÕ^ ÌÍÙKLKJBQYQ^
    ÌÍÕ^JBQYQ^
    ÌÍÙJ

Let me know if it works

Link to comment
Share on other sites

Should prospeed.dll help me with loading each pixelcolor of the pic in a array ?

$hnd=LoadExtImage(pic.bmp)

$array= readpixel($hnd) ; 2D array, X,Y

$array[X][Y]=$color_i_want

_save_array_to_bmp

;)

Yes, ProSpeed.dll can. Use InitExtFX to get imagedatas. This function return a pointer to a memory, where by offset 20 stays a long of the bytes, the image do use. At offset 40 exists a pointer to the raw imagedatas.

Sorry, no AutoIt-Example from me. I prefer writing code with Assembler & XProfan. But I'm sure, my friend jpan will help you with a codepiece. :)

Yesterday I rewrote ProSpeeds water-effect. Look at jpans website to see new demo.

Link to comment
Share on other sites

i hope this is what you want ! :)

needs last prospeed.dll and prospeed udf

download @ http://prospeed-jan.xprofan.com/

#include <GUIConstants.au3>
#include <Prospeed.au3>

Opt("GUIOnEventMode", 1)
HotKeySet("{Esc}", "_exit")

$gui = GUICreate("Prospeed", 800, 600, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()

GetHDC()

;==== BItmap =================================== Comment this if you want to use Picture
$bitmap = CreateExtBmp(100, 100)
FillExtBmp($bitmap, 0, 0, 100, 50, 0xFF0000)
FillExtBmp($bitmap, 0, 50, 100, 100, 0x0000FF)
$array  = InitExtFX($bitmap)
CopyArray($hdc, 100, 0, $array)
;===============================================

;==== Picture ================================== Uncomment this when you want to use picture
;~ $Load_Pic = LoadExtImage("water_bord.gif")
;~ $array    = InitExtFX($Load_Pic)
;~ CopyArray($hdc, 200, 0, $array)
;===============================================

$arrayInfos  = DllStructCreate("long;long;long;dword;dword;long;long;long;long;long;long;long", $array)
$biSizeImage = DllStructGetData($arrayInfos, 6)
$Pointer     = DllStructGetData($arrayInfos, 11)

$a      = $biSizeImage/4
$z      = $Pointer
$Offset = 0

Dim $ArrayData[$a+1] ; create arrays for color data 
; Byte Arrays contain 3 bytes (BGR)
For $i = 0 To $a
    $getByte = GetAByte($z+$Offset)
    $ArrayData[$i] = Hex($getByte,6) ; fill array With Color data
    ConsoleWrite(Hex($getByte,6)&@CRLF) ; console write to check colordata
    If Hex($getByte,6) = "0000FF" Then ;colors are in BGR
        SetAByte($z+$Offset  , 255) ; 1 byte Blue 
        SetAByte($z+$Offset+1, 255) ; 1 byte Green
        SetAByte($z+$Offset+2, 255) ; 1 byte Red
    EndIf
    $Offset = $Offset +3 ; offset +3 for next Byte arrays
Next

; ==== Bitmap ========================================== Comment this if you want to use Picture
$width   = GetBmpWidth($bitmap)
$height  = GetBmpHeight($bitmap)
$bitmap2 = CreateExtBmp($width, $height)
CopyArray($hdc, 0, 0, $array)
CopyArray($bitmap2, 0, 0, $array)
MsgBox(0,"","done!")
SaveExtImage($bitmap2, "C:\new_bitmap2.bmp", 0, 10)
; =======================================================

; ==== Picture ========================================== Uncomment this when you want to use picture
;~ $width   = GetBmpWidth($Load_Pic)
;~ $height  = GetBmpHeight($Load_Pic)
;~ $bitmap2 = CreateExtBmp($width, $height)
;~ CopyArray($hdc, 0, 0, $array)
;~ CopyArray($bitmap2, 0, 0, $array)
;~ MsgBox(0,"","done!")
;~ SaveExtImage($bitmap2, "C:\new_bitmap2.bmp", 0, 10)
; ==== Picture ===========================================


While 1
    Sleep(1000)
WEnd

Func _exit()
    Exit
EndFunc
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...