Solved

In need of components

Posted on 2006-11-20
22
173 Views
Last Modified: 2010-04-05
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
0
Comment
Question by:jonasbson
  • 5
  • 5
  • 3
  • +4
22 Comments
 
LVL 45

Expert Comment

by:aikimark
ID: 17980835
0
 
LVL 9

Expert Comment

by:bernani
ID: 17981001
Hi,

It's maybe this one http://www.tmssoftware.com/flexcel.htm

0
 

Author Comment

by:jonasbson
ID: 17981353
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.
0
 
LVL 45

Expert Comment

by:aikimark
ID: 17981640
@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.
0
 
LVL 28

Expert Comment

by:TName
ID: 17981996
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
0
 
LVL 28

Expert Comment

by:TName
ID: 17982008
gooled = googled
0
 

Author Comment

by:jonasbson
ID: 17982025
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;
0
 

Author Comment

by:jonasbson
ID: 17982044
@Tname

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

0
 
LVL 28

Expert Comment

by:TName
ID: 17982105
Yes, I've just noticed...
0
 
LVL 6

Expert Comment

by:wimmeyvaert
ID: 17985571
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.
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 

Author Comment

by:jonasbson
ID: 17985703
@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
0
 
LVL 6

Expert Comment

by:wimmeyvaert
ID: 17986442
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.
0
 
LVL 9

Expert Comment

by:bernani
ID: 17986586
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.  


0
 
LVL 45

Expert Comment

by:aikimark
ID: 17987982
@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.
0
 

Author Comment

by:jonasbson
ID: 17995853
@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.
0
 
LVL 6

Expert Comment

by:wimmeyvaert
ID: 18100340
Any success so far ?
0
 
LVL 45

Expert Comment

by:aikimark
ID: 21110304
I recommend PAQ with no points refunded.
0
 
LVL 28

Expert Comment

by:ciuly
ID: 21110343
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.

0
 
LVL 45

Expert Comment

by:aikimark
ID: 21110404
@ciuly

I recommended NO points refunded.
0
 
LVL 28

Expert Comment

by:ciuly
ID: 21110444
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 :)
0
 
LVL 1

Accepted Solution

by:
Computer101 earned 0 total points
ID: 21135806
PAQed with no points refunded (of 125)

Computer101
EE Admin
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Suggested Solutions

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now