delphi to autoit converter

[corgano]

i need a program that will change delphi into autoit. anyone got a link to a program i can use?

form's search failed me. google failed me. i need help

Edited December 21, 2008 by corgano

[GEOSoft]

i need a program that will change delphi into autoit. anyone got a link to a program i can use?

form's serch failed me. google failed me. i need help

I think you will be looking for a long, long time for something that even comes close. I have a few converters but when I looked at what was involved doing Delphi/Pascal to AutoIt I got a headache and stopped right at the point of consideration.

[corgano]

I think you will be looking for a long, long time for something that even comes close. I have a few converters but when I looked at what was involved doing Delphi/Pascal to AutoIt I got a headache and stopped right at the point of consideration.

thanks for the vote of confidence

now if someone were to make one then it would be maby the first one ever made? that would be worth sumthing.

[GEOSoft]

thanks for the vote of confidence

now if someone were to make one then it would be maby the first one ever made? that would be worth sumthing.

I wasn't trying to make you think I didn't have confidence. Just pointiong out what my feelings were when I looked at it.

Feel free to fly right at it. I'll certainly use it if you get it working.

[corgano]

I wasn't trying to make you think I didn't have confidence. Just pointiong out what my feelings were when I looked at it.

Feel free to fly right at it. I'll certainly use it if you get it working.

i am FAR noob to do that, but maby if someone with some skill was here.......

[GEOSoft]

Then it might present a good learning opportunity for you.

Just to get you started here's a way to convert the Delphi procedures to AutoIt Func

$sStr = StringRegExpReplace($sStr, "(?s)(?i)(?m:^|\n)\s*procedure(\s+.+?\n)\s*end;?(?m:$|\r)", "Func$1EndFunc" & @CRLF)

Where $sStr is the Delphi code

[Draygoes]

@GEO,

What other converters do you have? I have only seen a VBS to AU3 converter.

[GEOSoft]

@GEO,

What other converters do you have? I have only seen a VBS to AU3 converter.

I have another VBS to Au3, a Vbs to Javascript, Hta to au3(buggy), A partial Js to Au3 and since I made that post I've almost finished a Delphi Form to Au3 GUI converter. By tomorrow I should have a Delphi Function to Au3 converter done.

Not all my scripts get posted

[SmOke_N]

I have another VBS to Au3, a Vbs to Javascript, Hta to au3(buggy), A partial Js to Au3 and since I made that post I've almost finished a Delphi Form to Au3 GUI converter. By tomorrow I should have a Delphi Function to Au3 converter done.

Not all my scripts get posted

But the bragging never ceases.

[Innovative]

But the bragging never ceases.

Loled, a AU3 to something else would be awesome too .

[corgano]

@geo

you should contact the guy who made reshacker wanabe. maby that delphi to autoit gui script could be usefull.

what about doing it indirectaly, like delphi -> vbs -> autoit?

if you had enough converters then you could make a autoit script to auto use them one after another

[GEOSoft]

@geo

you should contact the guy who made reshacker wanabe. maby that delphi to autoit gui script could be usefull.

what about doing it indirectaly, like delphi -> vbs -> autoit?

if you had enough converters then you could make a autoit script to auto use them one after another

There is really nothing that Resource Hacker can do with the conversion process and I have a few Funcs for Resorce Hacker anyway.

I had put this aside a long time ago but that was before AutoIt had RegExp capabilities so I decided to revisit it. I will not be putting even close to the top of my project list although I can already convert the GUI code. I still need to do more work on the Proceedure >> func portion.

[jazzyjeff]

Hi GeoSoft,

Sorry for jumping on this old thread, but I was wondering if you would be able to help me out with something.

I see your last thread mentioned having a Delphi to AutoIT converter. Is this something you would be willing to post or share? If not, would you be able to translate some code using your utility for me please?

expandcollapse popup

function CredReadGenericCredentials(const Target: WideString; var Username, Password: WideString): Boolean;
var
Credential: PCREDENTIALW;
begin
Credential := nil;
if CredReadW(PWideChar(Target), CRED_TYPE_GENERIC, 0, Credential) then
begin
try
username := Credential.UserName;
password := WideCharToWideString(PWideChar(Credential.CredentialBlob), Credential.CredentialBlobSize); //By convention blobs that contain strings do not have a trailing NULL.
finally
CredFree(Credential);
end;
 
Result := True;
end
else
Result := False;
end;
function CredWriteGenericCredentials(const Target, Username, Password: WideString): Boolean;
var
PersistType: DWORD;
Credentials: CREDENTIALW;
begin
if not CredGetMaxPersistType(CRED_TYPE_GENERIC, PersistType) then
begin
Result := False;
Exit;
end;
 
ZeroMemory(@Credentials, SizeOf(Credentials));
Credentials.TargetName := PWideChar(Target); //cannot be longer than CRED_MAX_GENERIC_TARGET_NAME_LENGTH (32767) characters. Recommended format "Company_Target"
Credentials.Type_ := CRED_TYPE_GENERIC;
Credentials.UserName := PWideChar(Username);
Credentials.Persist := PersistType; //CRED_PERSIST_ENTERPRISE; //local machine and roaming
Credentials.CredentialBlob := PByte(Password);
Credentials.CredentialBlobSize := 2*(Length(Password)); //By convention no trailing null. Cannot be longer than CRED_MAX_CREDENTIAL_BLOB_SIZE (512) bytes
Credentials.UserName := PWideChar(Username);
Result := CredWriteW(Credentials, 0);
end;
 
 
 
 
function CredDeleteGenericCredentials(const Target: WideString): Boolean;
begin
Result := CredDelete(Target, CRED_TYPE_GENERIC);
end;
 
 
Sample Usage:
 
//Save credentials for my thing
CredWriteGenericCredentials('TED5000 MTU1', 'one_in_one', 'password1');
 
//Read saved credentials for my thing
var
username: string;
password: string;
 
CredReadGenericCredentials('TED5000 MTU1', username, password);
 
//Delete the saved credentials
CredDeleteGenericCredentials('TED5000 MTU1');

The school I work for has machines that are off the domain, and we can access the servers on the domain through the Credential Manager, but I would like my GUI to just add them in. I saw the API CredWrite can do this, but I am not quite there yet on being able to write API's in AutoIT. So then I found some Delphi code that a user shared and I too would like to use this in AutoIT, but I have never used Delphi before, so I am not sure how to go about converting it.

If you can help or assist, this would be great.

Thanks,

Jeff