Cheat Engine

[Kevin]

When using a ActiveX component (TShockwaveFlash) in delphi, you need to double click and set the URL to the flash file. So i wondered... Is there a possible way to do this in delphi, like you can do it in VB, if so - could you give me some hints or sources or links to sites which tutors in that.

im thinking using an edit box, when you enter the URL in that, and click load you load the URL. I've seen it work in Visual Basic, so i though it might work in Delphi.

[Ksbunker]

I'm not big on delphi, but i'm sure the folloing link will help you immensely.

http://www.delphiflash.com/library-show-flash-movie.php

[Kevin]

thats about loading movies and stuff from .res files. I already know that.

I need to know how you can set the (TShockwaveFlash) Flash Game's URL in a text box, and when you hit a Load Button the TShockwaveFlash component loads the URL, just like if you double click it on the form and enter the URL.

thanks for trying

[Ksbunker]

In the Delphi IDE

- click on "Component", "Import ActiveX Control"
- chose "Shockwave Flash" and click on "install".

Now you have a TShockwaveFlash component in your IDE on the ActiveX tabsheet.
Place the TShockwaveFlash Component onto your form, resize it as needed but
for now do not assign a movie to it.

You will need to register the ocx file if it is not installed on the
target computer. So you should have a resource file with

- the swflash.ocx and your Flash ( *.swf) file.

- Copy swflash.ocx (from i.e. windows\system32\macromed\flash) and your
custom swf file to your project path.
- Create a textfile with a code like this:

SHOCKWAVEFILE RCDATA yourfile.swf
SHOCKWAVEOCX RCDATA swflash.ocx

(Where yourfile.swf is your swf-file)

- Save this file as flash.rc
- Goto Commandline, change to your project dir and enter the line:

"Brcc32 -r flash.rc"

- Now you have your new resource as flash.res file



{************************************************************}

uses
ShockwaveFlashObjects_TLB; // will be used automatically

implementation

{$R *.DFM}
{$R flash.res} // your new created resource
{...}

procedure TForm1.FormCreate(Sender: TObject);
var
SystemDir: array[0..MAX_PATH] of Char;
SWFDir, AppDir: string;
Fres: TResourceStream;
Ffile: TFileStream;
begin
GetSystemDirectory(@SystemDir, MAX_PATH);
SWFDir := SystemDir + '\macromed\flash\';
GetDir(0, AppDir); // Get current directory

//check whether the sw-flash ocx is already installed
if FileExists(SWFDir + 'swflash.ocx') = False then
begin
//create directories if needed and extract file from resource.
{$i-} //compiler directive to suppress i/o error messages
MkDir(SystemDir + '\macromed');
MKDir(SystemDir + '\macromed\flash');
{$i+}
Fres := TResourceStream.Create(0, 'SHOCKWAVEOCX', RT_RCDATA);
Ffile := TFileStream.Create(SWFDir + 'swflash.ocx', fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

//register ocx (simple but useful)
WinExec(PChar('regsvr32 /s ' + SWFDir + 'swflash.ocx'), SW_HIDE);
end;
// extract ShockwaveFile from resource to application directory
Fres := TResourceStream.Create(0, 'SHOCKWAVEFILE', RT_RCDATA);
Ffile := TFileStream.Create('flashmovie.swf', fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

//Assign the extracted swf file to your TShockwaveFlash object
FlashMovie.Movie := AppDir + '\flashmovie.swf';
end;

{************************************************************}

FlashMovie.Movie is the variable that you have to manipuate to load different movies. In this example, it presumes the movie "flashmovie.swf" resides in the same folder/directory as the application (see AppDir, GetDir(0, AppDir); // Get current directory).

Read the contents of the edit box and pass the read contents to variable sURL, then do as following to load movie.

FlashMovie.Movie := sURL;

[Kevin]

yes i knew that.

take a look in flash section and see the Ultimate Flash Trainer.

I want to make one like that. where you can enter the URL and then it will load the flash game. I already knew all what you posted

[compactwater]

Flash loader & source attached.

Download: http://forum.cheatengine.org/download.php?id=12363

[Kevin]

thanks alot.

[compactwater]

[Ksbunker]

The information I posted was no more wrong or right than the information compactwater attached. As the adage goes, there is more than one way to skin a cat. It's just that you wanted access to prefabricated source code. You will learn more if you start from scratch instead of editing a line here and there of someone else's project.

[compactwater]

I left a bunch of comments in it, so if he needed to understand how something works he could just read it.