delphi - Return the library path of a specific platform using OTA -

-

i want library path specific platform (win32, win64, osx). but, when ask library path for, ota return me osx library path.

the code is: 

environmentoptions := (borlandideservices iotaservices).getenvironmentoptions; paths.text := environmentoptions.values['librarypath'];

i noticed strange thing. when ask key values 3 librarypath.

when do: 

environmentoptions.getoptionnames

i get:

... lot of values  'classcompletionbooleanaddinterface', tkenumeration 'librarypath', tklstring                --> 1 'packagedploutput', tklstring ...  lot of values  'librarypath', tklstring                --> 2 'packagedploutput', tklstring ...  lot of values  'hppoutputdirectory', tklstring 'librarypath', tklstring                --> 3 'packagedploutput', tklstring ...  lot of values

i think each key must represent 1 of possible targets have (win32, win64, osx). can call value of key it's name, return me first key founds, in case it's os x.

i'll not accept answer correct, it's option. didn't found possibility direct in ota looked on registry:

procedure getlibrarypath(paths: tstrings; platformname: string); var   svcs: iotaservices;   options: iotaenvironmentoptions;   text: string;   list: tstrings;   valuecompiler: string;   regread: tregistry; begin   svcs := borlandideservices iotaservices;   if not assigned(svcs) exit;   options := svcs.getenvironmentoptions;   if not assigned(options) exit;    valuecompiler := svcs.getbaseregistrykey;    regread := tregistry.create;   list := tstringlist.create;   try     if platformname = ''       text := options.getoptionvalue('librarypath')     else     begin       regread.rootkey := hkey_current_user;       regread.openkey(valuecompiler + '\library\' + platformname, false);       text := regread.getdataasstring('search path');     end;      list.text := stringreplace(text, ';', #13#10, [rfreplaceall]);     paths.addstrings(list);      if platformname = ''       text := options.getoptionvalue('browsingpath')     else     begin       regread.rootkey := hkey_current_user;       regread.openkey(valuecompiler + '\library\' + platformname, false);       text := regread.getdataasstring('browsing path');     end;      list.text := stringreplace(text, ';', #13#10, [rfreplaceall]);     paths.addstrings(list);       regread.free;     list.free;   end; end;

Comments

Post a Comment

Popular posts from this blog

Spring Boot + JPA + Hibernate: Unable to locate persister -

-
i trying work entity inside request method of spring boot application. entity in project , pom.xml has dependencies it. why error message?: org.hibernate.unknownentitytypeexception: unable locate persister: com.ric.bill.model.bs.par package com.ric.web; import java.util.concurrent.atomic.atomiclong; import javax.persistence.entitymanager; import javax.persistence.persistencecontext; import net.sf.ehcache.cachemanager; import net.sf.ehcache.management.cache; import net.sf.ehcache.management.cachestatistics; import org.hibernate.stat.statistics; import org.springframework.beans.factory.annotation.autowired; import org.springframework.boot.autoconfigure.domain.entityscan; import org.springframework.cache.annotation.enablecaching; import org.springframework.transaction.annotation.enabletransactionmanagement; import org.springframework.transaction.annotation.propagation; import org.springframework.transaction.annotation.transactional; import org.springframework.web.bind.annotati
Read more

go - Golang: panic: runtime error: invalid memory address or nil pointer dereference using bufio.Scanner -

-
i implementing go program uses bufio.scanner , bufio.writer have packaged code follows package main import ( "fmt" "player/command" "strings" ) func main() { //enter code here. read input stdin. print output stdout commands.scanner.scan() { //scan new line , send comand variable check command exist or not input := strings.split(strings.trim(commands.scanner.text(), " "), " ") command := input[0] if command == "" { fmt.printf("$ %s:", commands.pwd) continue } if !commands.commands[command] { commands.throwerror("cannot recognize input.") } else { commands.execute(command, input[1:], nil) } fmt.printf("$ %s:", commands.pwd) } } i using init.go file in main package follows package main import ( "flag" "player/sourc
Read more

c - double free or corruption (fasttop) -

-
this code reads null terminated string file (file containing null terminated strings & should provide index wanted string). error: *** error in `./main': double free or corruption (fasttop): 0x090a4a80 *** aborted code: char *tmp_realloc=null; char *sstring=null; int i=1; /*set file pointer point string*/ fseek(fh,index,seek_set); sstring=(char*)malloc(sizeof(char)); if(sstring == null) return null; tmp_realloc=sstring; while( (*(sstring+i-1)=(char)fgetc((file*)fh)) != 0x0 ) { /*reallocate more memory*/ tmp_realloc=(char*)realloc((char*)sstring,++i); /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strcpy((char*)tmp_realloc,(char*)sstring); free(sstring); sstring=tmp_realloc; } } could tell me pointer causing issue (& reason) ? remove part /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strc
Read more