Delphi XE2: Invoke WinAPI EnumResourceNames cause access violation in Win64 platform -

-


Delphi XE2: Invoke WinAPI EnumResourceNames cause access violation in Win64 platform -

running next code in delphi xe2 win32 platform works. however, same code compile in win64 platform cause access violation in "enumrcdataproc" if run in debug mode:

procedure tform2.button1click(sender: tobject); function enumrcdataproc(hmodule: thandle; lpsztype, lpszname: pchar; lparam: nativeint): boolean; stdcall; begin tstrings(lparam).add(lpszname); result := true; end; var k: nativeint; l: tstringlist; h: thandle; begin h := loadpackage('resource.bpl'); l := tstringlist.create; seek enumresourcenames(h, rt_rcdata, @enumrcdataproc, nativeint(l)); showmessage(l.text); l.free; unloadpackage(h); end; end;

when debug code in delphi xe2 ide on win64 platform, found value of hmodule in enumrcdataproc doesn't match variable h. suspect might wrong parameters constructed enumrcdataproc. however, can't figure out how. ideas?

the problem have made enumrcdataproc local procedure. need move outside method.

function enumrcdataproc(hmodule: hmodule; lpsztype, lpszname: pchar; lparam: nativeint): bool; stdcall; begin tstrings(lparam).add(lpszname); result := true; end; procedure tform2.button1click(sender: tobject); var k: nativeint; l: tstringlist; h: hmodule; begin h := loadpackage('resource.bpl'); l := tstringlist.create; seek enumresourcenames(h, rt_rcdata, @enumrcdataproc, nativeint(l)); showmessage(l.text); l.free; unloadpackage(h); end; end;

on first inspection expected compiler emit error code:

e2094 local procedure/function 'callback' assigned procedure variable

but not so. dug little deeper , discovered callback parameter enumresourcenames declared type pointer. if header translation had declared typed callback parameter above error message indeed have been emitted. mind header translation poor in regard. there seems little gained abandoning safety of type system.

the fact code works in 32 bit code happy coincidence relies on implementation details. luck runs out on 64 bit. again, if type checking scheme had been enabled, compiler have told wrong immediately.

some other comments:

the enumrcdataproc has couple of wrong types in declaration: hmodule should of type hmodule , function result should bool. loadpackage rather heavyweight approach getting module handle. prefer see loadlibraryex load_library_as_datafile_exclusive , load_library_as_image_resource options.

delphi delphi-xe2

Comments

Post a Comment

Popular posts from this blog

delphi - blogger via idHTTP : error 400 bad request -

-
delphi - blogger via idHTTP : error 400 bad request - i'm trying post blogger using idhttp component, however, i'm getting "http/1.0 400 bad request" error. procedure tform1.button1click(sender: tobject); var request,response,req : tstringlist; auth,blogid : string; begin blogid := '00000000000000000000000'; request := tstringlist.create; response := tstringlist.create; req := tstringlist.create; idhttp1.request.connection := 'keep-alive'; idhttp1.request.contenttype := 'application/x-www-form-urlencoded'; idssliohandlersocket1.ssloptions.method := sslvsslv23; request.clear(); request.values['accounttype'] := 'google'; request.values['email'] := 'xxx@gmail.com'; request.values['passwd'] := 'yyy'; request.values['service'] := 'blogger'; response.text :=idhttp1.post('https://www.google.com/accounts/clientlogin',request); auth := resp...
Read more

c++ - compiler errors when initializing EXPECT_CALL with function which has program_options::variables_map as parameter -

-
c++ - compiler errors when initializing EXPECT_CALL with function which has program_options::variables_map as parameter - i'm having problem expect_call method, when trying : boost::program_options::variables_map vm; mymock mock; expect_call(mock, mymethod(vm)).willonce(return(l"")); mymethod looks : std::wstring mymethod(const boost::program_options::variables_map &vm) when compiling got errors : error 17 error c2676: binary '==' : 'const boost::program_options::variable_value' not define operator or conversion type acceptable predefined operator c:\program files (x86)\microsoft visual studio 9.0\vc\include\utility error 10 error c2784: 'bool std::operator ==(const _elem *,const std::basic_string<_elem,_traits,_alloc> &)' : not deduce template argument 'const _elem *' 'const boost::program_options::variable_value' c:\program files (x86)\microsoft visual studio 9.0\vc\include\u...
Read more

How do I check if an insert was successful with MySQLdb in Python? -

-
How do I check if an insert was successful with MySQLdb in Python? - i have code: cursor = conn.cursor() cursor.execute(("insert new_files (videos_id, filename, " "is_processing) values (%s,%s,1)"), (id, filename)) logging.warn("%d", cursor.rowcount) if (cursor.rowcount == 1): logging.info("inserted values %d, %s", id, filename) else: logging.warn("failed insert values %d, %s", id, filename) cursor.close() fun is, cursor.rowcount always one, though updated database create videos_id unique key. is, insert fails because in tests same videos_id going appear (and when check database, nil inserted). whatever reason, rowcount 1 - logging.warn have spits out rowcount of 1. so, question: can utilize rowcount work out if insert went fine? if so, (presumably) doing wrong? otherwise, how check if insert went fine? your code not commit after modifications (your modifications rolled back). should...
Read more