Delphi

[Xifanie]

Going back at it. Maybe I'll be able to start coding Rad's Toolkit this week-end?

[Xifanie]

Crap... what's the easiest way to load an entire file into memory & manage it?

I can only store about 100kb in an array of bytes. That sucks.  

And I searched but couldn't find anything about how I could let the user click a button, choose its folder with FFT files to modify and click OK. All files would then have the correct path to load them. (sorry I have no idea how it's called in English, in fact, my XP is in French >_>')

I was expecting this to be easier.  

[Argg0]

What Delphi compiler are you using?

Borland?

If so, under the system tab there is lots of Dialogs, OpenDialog is what you want.

It brings the usual windows Open box. It returns a string with the file name. So you go like...

if (OpenDialog1.execute) then
    Memo1.Lines.LoadFromFile(OpenDialog1.filename);

Would throw the file text on the Memo1.

About the bytes problem... I'm not sure. I don't know variable limitations and such on Delphi (like I said before, I use C++ >_<)...

[Xifanie]

Still can't get the SelectDirectory function to work...

Well, I started coding the program and all I've done until now is loading all the proper data into separate arrays. That took me more than half an hour dammit. :S

Look how newbie my source looks:  

Code Select Expand

var
   FilePath : String;
   SCUS     : File;
   Ab1      : array[0..4095] of byte;
   Ab2      : array[0..5152] of byte;
   ASIte    : array[0..15] of byte;
   ASThr    : array[0..11] of byte;
   ASJmp    : array[0..23] of byte;
   ASChr    : array[0..15] of byte;
   ASMSk    : array[0..7] of byte;
   ASRea    : array[0..87] of byte;
   Job      : array[0..7679] of byte;
   IteIte   : array[0..3071] of byte;
   IteWep   : array[0..1023] of byte;
   IteShl   : array[0..31] of byte;
   IteArm   : array[0..127] of byte;
   IteAcc   : array[0..63] of byte;
   IteChm   : array[0..47] of byte;
   InS      : array[0..767] of byte;
   SIA      : array[0..1999] of byte;
   Sks      : array[0..4399] of byte;
   MSk      : array[0..239] of byte;
   AEm      : array[0..223] of byte;
   StA      : array[0..639] of byte;
   Poa      : array[0..95] of byte;
   JbR      : array[0..189] of byte;
   JLv      : array[0..17] of byte;
 begin
   FilePath := 'C:\SCUS_942.21';
   AssignFile(SCUS, FilePath);
   FileMode := fmOpenRead;
   Reset(SCUS, 1);

   Seek(SCUS, $4F3F0);
   BlockRead(SCUS, Ab1, 4096);

   Seek(SCUS, $503F0);
   BlockRead(SCUS, Ab2, 5152);

   Seek(SCUS, $51810);
   BlockRead(SCUS, ASIte, 16);

   Seek(SCUS, $51820);
   BlockRead(SCUS, ASThr, 12);

   Seek(SCUS, $5182C);
   BlockRead(SCUS, ASJmp, 24);

   Seek(SCUS, $51844);
   BlockRead(SCUS, ASChr, 16);

   Seek(SCUS, $51854);
   BlockRead(SCUS, ASMSk, 8);

   Seek(SCUS, $5185C);
   BlockRead(SCUS, ASRea, 88);

   Seek(SCUS, $518B8);
   BlockRead(SCUS, Job, 7680);

   Seek(SCUS, $536B8);
   BlockRead(SCUS, IteIte, 3072);

   Seek(SCUS, $542B8);
   BlockRead(SCUS, IteWep, 1024);

   Seek(SCUS, $546B8);
   BlockRead(SCUS, IteShl, 32);

   Seek(SCUS, $546D8);
   BlockRead(SCUS, IteArm, 128);

   Seek(SCUS, $54758);
   BlockRead(SCUS, IteAcc, 64);

   Seek(SCUS, $54798);
   BlockRead(SCUS, IteChm, 48);

   Seek(SCUS, $547C4);
   BlockRead(SCUS, InS, 768);

   Seek(SCUS, $54AC4);
   BlockRead(SCUS, SIA, 2000);

   Seek(SCUS, $55294);
   BlockRead(SCUS, Sks, 4400);

   Seek(SCUS, $563C4);
   BlockRead(SCUS, MSk, 240);

   Seek(SCUS, $564B4);
   BlockRead(SCUS, AEm, 224);

   Seek(SCUS, $565E4);
   BlockRead(SCUS, StA, 640);

   Seek(SCUS, $56864);
   BlockRead(SCUS, Poa, 96);

   Seek(SCUS, $568C4);
   BlockRead(SCUS, JbR, 190);

   Seek(SCUS, $56982);
   BlockRead(SCUS, JLv, 18);
 end;

[Xifanie]

Man, I searched and searched but I still have no idea of how to create a frame after pressing a button... I don't want to do all my work in a single window. Ã"_o

Can you help?  

[Argg0]

I ask again... What compiler are you using?

[Xifanie]

Borland

[Xifanie]

Found it. Well, I know that I'll have to use ShowModal for my purposes. I'm not sure as how to use it though.

[karsten]

how are progresses with this?

[Xifanie]

Mmmm, slow.  

I almost got everything planed except for my font editor. Same for the text editor since I want to make a file the user can edits to sets converting values at loading/saving, that way punctuation marks could be converted, just like that).

Don't push me, I'm a newb at programming. Almost all my experience comes from SC Triggers; XD.

[karsten]

Mmmm, slow.   i was just wondering when i'll have to search for my PSX again as long as the only patching way is through excel i have no chances...

[Xifanie]

Yeah, I know.

I'm currently designing, and I never thought that alone would take this much time.

After that, it's text editing, then the saving function and it should be up.

I want to do the text editing right now as the users will be able to directly modify the ability name and quote directly from the Ability Editing form. I don't want to do something that I'll remove afterwards when I'd implement the text editing.

[Argg0]

Sorry for not replying for a while... I've been pretty busy.

If you are having trouble with codes, you can send them to me and I'll take a look (commenting them will help, also using good variable names).

ps: Don't do that in French or I won't be able to help >_>

[Xifanie]

Huh... I never even take notes in french.French is a good language to chat, write texts & talk, but other than that it's horrible. Especially french translated games; they make me want to puke.

[karsten]

status?

[Xifanie]

Bad; I don't feel like coding these days.

[karsten]

Bad; I don't feel like coding these days.

i see. by the way i noticed that you are complaining alot about the hosting... can you explain me in detail what is the problem? maybe i can work something out.

[Xifanie]

AH, first there is auritech.eu and this one: byethost.

The problem with your site is its location. Loading the site from the US/Canada is extremely long. I did speed tests and it's response times are 5+ seconds while Google is 0.14 sec.

As for byethost, it very often happens to me that:
- The page doesn't load completely (images missing)
- MySQL database isn't updated properly when I view a page to switch the 'read/unread' flag.
- No response at all sometimes, then I hit refresh and it's OK.
- The server is too often down IMO.

[karsten]

AH, first there is auritech.eu and this one: byethost.

The problem with your site is its location. Loading the site from the US/Canada is extremely long. I did speed tests and it's response times are 5+ seconds while Google is 0.14 sec.

As for byethost, it very often happens to me that:
- The page doesn't load completely (images missing)
- MySQL database isn't updated properly when I view a page to switch the 'read/unread' flag.
- No response at all sometimes, then I hit refresh and it's OK.
- The server is too often down IMO.

i see. anyway at least from here this webpage was always a lightning... damn fast at least charges in less then a sec.

for what concerns the forum it seems to have slowed down a little lately