Link to home
Start Free TrialLog in
Avatar of jonasbson
jonasbson

asked on

In need of components

Hi,

I'll start with the background.
We have an application built in delphi at work which bassicly makes excel-reports from a data-file and the emails it to specified email-adress. The stupid thing is that the email-adress is hardcoded in the program and we wish to change the email-adress now.

I've gotten ahold of the source-code to the program (he who made it for 2-3 years ago has quit the company) and started to look into and noticed that he use some external components. One of theese componets was quite easy to find by using google (It's called FlexCel), but another one im having abit of trouble with finding.  It's only called "TextFile" so its quite hard to google for.

Do anyone have any idea's of what I can do?

Best Regards,
Jonas
Avatar of aikimark
aikimark
Flag of United States of America image

Avatar of jonasbson
jonasbson

ASKER

aikirnark:
Yes im sure its not the textfile reserverd word becaouse its decalered as a unit in "uses".

bernani:

That component I've allready downloaded, as stated in my first post.
@jonasbson

Are there any comments in the unit that might clue us to its origin?

How about posting some code snippets illustrating the textfile methods and properties.
Hi,
Where there's TextFile in the uses clause, there could be a TTextFile and a TextFile.pas...
Could it be this one (just gooled for both terms):

http://0xc0de.org/source/TTextfile/?C=S;O=A 
gooled = googled
aikimark:

Sorry to say there isnt much comments in code (remember im not the origin coder so dont blame me :D)..

Here is a code snippets illustrating some use of textfile:

 With TTextfile.Create Do
   Try
    FixedColumns := False;
    Separator := ';';
    Filename := HastusFile;
    Start;
    If Fields[1] = 'UID' Then
     Begin
      Username := Trim(Fields[3]);
      Statistics.Period := Trim(Fields[4]) + ' - ' + Trim(Fields[5]);
     End
    Else
     Begin
      AlertForUnexpectedEOF;
      Exit;
     End;
    LogFile := Trim(Temporary_Path) + '\Production_' + Username + '_' +
     FormatDateTime('yyyy-mm-dd_hh.nn.ss', FunctionStarted) + '.log';
    While (Trim(Fields[1]) <> '*SCHEDULES*') And (Not EOF) Do Next;
    If EOF Then
     Begin
      AlertForUnexpectedEOF;
      Exit;
     End;
@Tname

I've actually tried that one and it wasnt the right one :/.

Yes, I've just noticed...
Are you sure it isn't a unit your ex-collegue has made himself.
I searched the web for TTextFile Separator, but nothing found.

Maybe you can search your disk for TextFile.pas or TextFile.dcu

Best regards,

The Mayor.
@wimmeyvaert

It's possible that my ex-colleague made it himself. I've only recieved one folder from his ex-pc with the sourcecode in and there is no textfile.pas or .dcu in that one.

I wounder if there is someway to "de-compile" the .exe and that way extract TextFile.pas or .dcu. Anyone know?

Regards,

Jonas
Maybe you ca ntry following link :
http://delphi.about.com/od/devutilities/a/decompiling_3.htm

On this page there are some tools to decompile or do reverse engineering.
Never tried this.

Best regards,

The Mayor.
Hi,

Maybe you coud also have a loot at the topics present on this forum: http://community.reverse-engineering.net/index.php

Eventually, register and ask also your question there.

From the  Introduction and Welcome page:
"Welcome to the Reverse Code Engineering board. It is designed to be a place where reverse code engineers and software protectors are able to discuss - free of nonsense and ignorance.
Please read the rules as they were designed to protect members from illegal actions and bad manners. In order to post, you have to register first.
The board is designed to be friendly and not threatening members who start with reverse code engineering and software protection. Managed by experienced professional programmers and reverse code engineers / software protectors who understand that learning something like RCE is not easy, even if you are very experienced in programming and coding."
....

I'm not member. Can't say if it's worth or not.  


@Jonas,

I thnk we may be able to help you recreate your missing unit.  You should probably increase the points on this question if you go this route.

The recreation of this unit will require you to post all code references to that unit in order for us to determine the methods and properties.  There is an EE upload area ((EE Stuff) that you might use if there is a large amount of source code.
@aikimark

That would be a possibility. I will wait till next week cause then I will get a cd-rom disk with data from my ex-colleuge's PC. Hopefully the unit will be on it.

I've also looked into decompilers but it doesnt look like any of them are able to extract used unit.
Any success so far ?
I recommend PAQ with no points refunded.
if reverse engineering is something that is ok from EE point of view, then I almost agree :) since the asker did not answer the last question, it means that the asker abandoned the question and as per EE rules, he cannot get his points refunded.

That was the only reason why I suggested a delete, so .. it's up to the moderators now ;)

So, if the reverse engineering stuff is ok, then my suggestion is PAQ no refund. Otherwise, delete no refund.

@ciuly

I recommended NO points refunded.
right. sorry. right now I do 3 things in the same time, one of which is cleanup and answer here. my brain/eyes must have glitched :)
ASKER CERTIFIED SOLUTION
Avatar of Computer101
Computer101
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial