Internett: E-post:
Tlf: 7245 0190 Fax: 7245 0191

Startsiden | Produkter | Drift | Markedsføring | Ta kontakt | Gå til



Om nettstedet



Om virksomheten






Vår styrke

Wis i media


Om selskapet




Reise til WIS

Ta kontakt

Jobbe i WIS


Den andre siden ..

WIS blogg

Fixing missing shortcuts in cmd.exe
Av: Ove Halseth Onsdag 30.05.2012 (11:10)

I finally got annoyed enough to fix missing ALT-F4 and CTRL-V in command-prompt.

The solution is this AutoHotkey script:


; Language:       English
; Platform:       Win2k/XP/Vista/2k3 server/2k8 server
; Author:         Ove Halseth <>

#IfWinActive ahk_class ConsoleWindowClass
!F4:: Send !{SPACE}C
^V:: Send !{SPACE}EP


Ove B-)

--Emner: Operativsystem, Utvikling, Windows
Kommentarer: 0

Redirect dll using manifests
Av: Ove Halseth Onsdag 30.05.2012 (10:19)

To break free from dll-hell you can use manifests to spesify that your application should use local dll's instead of system dll's.

As an added bonus you will not have to register the dll's with regsvr32 in order to use them. Nice if end user is not local admin.


In order to redirect exe to use local dll's all you need is a manifest file pr dll and a corresponding manifest file for the exe.

You could compile the exe-manifest file into the exe, but it's not required.

The most tricky part is to get the dll-manifest and the exe-manifest to work together.


Create dll-manifests

I'll recomend generating the dll-manifests using microsofts mt.exe (on Win2k8 R2 i found it in C:\Program Files\Microsoft\SDKs\Windows\v6.1\Bin\mt.exe)

The command line for generating dll-manifest is: mt.exe -tlb:example.dll -dll:example.dll -out:example.dll.manifest

Open the generated manifest file and clean it up by adding linebreak and indention.

For our use we had no use of the comInterfaceExternalProxyStub, so I deleted those entries. But leaving them in would do no harm I guess.


Create exe-manifest
Best illustrated with an example.

Here is our manifest for an app named Navi.exe that uses three dll's:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity type="win32" name="Navi.exe" version="" />
      <assemblyIdentity type="win32" name="ChilkatRsa.dll" version=""/>
      <assemblyIdentity type="win32" name="ChilkatCrypt2.dll" version=""/>
      <assemblyIdentity type="win32" name="ChilkatCert.dll" version=""/>
  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
      <!--The ID below indicates application support for Windows Vista -->
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
      <!--The ID below indicates application support for Windows 7 -->
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>


You will need to replace application/dll name and version.

The last section: compability says that our application is compatible with Vista and Win7


To run your application using local dll's, the exe, dll's and it's corresponding manifests needs to be in the same folder.


If you are writing your application in delphi you could add the exe-manifest in the exe by creating a resource file: appname.RC
With the following line: 1 24 "appname.exe.manifest"

And then compile the RC: brcc32 appname.RC
You should then have a appname.RES that you would have to include in your project. I guess you already have a "{$R *.res}" line in your dpr-file. If so it would be included in your exe, the next time you compile your project.

I sometimes get conflict with the apps icon that delphi tries to put in the same res-file. So if your app is missing the icon after adding the manifest. Try adding it to the project again, I have not found out when it gives me a conflict and when it doesn't...


Ove B-)

--Emner: Delphi, Utvikling
Kommentarer: 0

Laste ned passordbeskyttet fil med VBA
Av: Ove Halseth Fredag 11.05.2012 (14:44)

Fant fort ut at en kunne laste ned vanlig fil med denne koden fra

Option Explicit
Option Compare Text

' modDownloadFile
' By Chip Pearson,,
' Date: 23-April-2003
' This module contains the DownloadFile function and supporting players to
' download a file from a URL to a local file name.
' Example Usage:
'        Dim URL As String
'        Dim LocalFileName As String
'        Dim B As Boolean
'        Dim ErrorText As String
'        URL = ""
'        LocalFileName = "C:\Test\"
'        B = DownloadFile(UrlFileName:=URL, _
'                        DestinationFileName:=LocalFileName, _
'                        Overwrite:=OverwriteRecycle, _
'                        ErrorText:=ErrorText)
'        If B = True Then
'            Debug.Print "Download successful"
'        Else
'            Debug.Print "Download unsuccessful: " & ErrorText
'        End If
' The Overwrite parameter of DownloadFile indicates how to handle the
' case when LocalFileName already exists. It is one of the following
' values:
'        OverwriteKill      use Kill to delete the existing file.
'        OverwriteRecycle   send the existing file to the Recycle Bin.
'        DoNotOverwrite     do not overwrite and terminate the procedure.
'        PromptUser         prompt the user asking whether to overwrite file.

Public Enum DownloadFileDisposition
    OverwriteKill = 0
    OverwriteRecycle = 1
    DoNotOverwrite = 2
    PromptUser = 3
End Enum

' Windows API functions, constants,and types.
' Used for RecycleFile.
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
    "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" _
    Alias "PathIsNetworkPathA" ( _
    ByVal pszPath As String) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" _
    Alias "GetSystemDirectoryA" ( _
    ByVal lpBuffer As String, _
    ByVal nSize As Long) As Long

Private Declare Function SHEmptyRecycleBin _
    Lib "shell32" Alias "SHEmptyRecycleBinA" _
    (ByVal hwnd As Long, _
     ByVal pszRootPath As String, _
     ByVal dwFlags As Long) As Long

Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const MAX_PATH As Long = 260

    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
End Type

' Download API function.
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
                        "URLDownloadToFileA" ( _
                            ByVal pCaller As Long, _
                            ByVal szURL As String, _
                            ByVal szFileName As String, _
                            ByVal dwReserved As Long, _
                            ByVal lpfnCB As Long) As Long

' DownloadFile
' This downloads a file from a URL to a local filename.
Public Function DownloadFile(UrlFileName As String, _
                            DestinationFileName As String, _
                            Overwrite As DownloadFileDisposition, _
                            ErrorText As String) As Boolean

Dim Disp As DownloadFileDisposition
Dim Res As VbMsgBoxResult
Dim B As Boolean
Dim S As String
Dim L As Long

ErrorText = vbNullString

If Dir(DestinationFileName, vbNormal) <> vbNullString Then
    Select Case Overwrite
        Case OverwriteKill
            On Error Resume Next
            Kill DestinationFileName
            If Err.Number <> 0 Then
                ErrorText = "Error Kill'ing file '" & DestinationFileName & "'." & vbCrLf & Err.Description
                DownloadFile = False
                Exit Function
            End If
        Case OverwriteRecycle
            On Error Resume Next
            B = RecycleFileOrFolder(DestinationFileName)
            If B = False Then
                ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
                DownloadFile = False
                Exit Function
            End If
        Case DoNotOverwrite
            DownloadFile = False
            ErrorText = "File '" & DestinationFileName & "' exists and disposition is set to DoNotOverwrite."
            Exit Function
        'Case PromptUser
        Case Else
            S = "The destination file '" & DestinationFileName & "' already exists." & vbCrLf & _
                "Do you want to overwrite the existing file?"
            Res = MsgBox(S, vbYesNo, "Download File")
            If Res = vbNo Then
                ErrorText = "User selected not to overwrite existing file."
                DownloadFile = False
                Exit Function
            End If
            B = RecycleFileOrFolder(DestinationFileName)
            If B = False Then
                ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description
                DownloadFile = False
                Exit Function
            End If
    End Select
End If

L = URLDownloadToFile(0&, UrlFileName, DestinationFileName, 0&, 0&)
If L = 0 Then
    DownloadFile = True
    ErrorText = "Buffer length invalid or not enough memory."
    DownloadFile = False
End If
End Function
Private Function RecycleFileOrFolder(FileSpec As String) As Boolean

    Dim FileOperation As SHFILEOPSTRUCT
    Dim lReturn As Long

    If (Dir(FileSpec, vbNormal) = vbNullString) And _
        (Dir(FileSpec, vbDirectory) = vbNullString) Then
        RecycleFileOrFolder = True
        Exit Function
    End If

    With FileOperation
        .wFunc = FO_DELETE
        .pFrom = FileSpec
        .fFlags = FOF_ALLOWUNDO
		' Or
    End With

    lReturn = SHFileOperation(FileOperation)
    If lReturn = 0 Then
        RecycleFileOrFolder = True
        RecycleFileOrFolder = False
    End If
End Function


Men ingen enkel måte og laste ned en passordbeskyttet fil:-(


Løsningen er snublende nær, det er bare og laste ned med url'en:


Ove B-)

--Emner: Utvikling, VBA
Kommentarer: 0

ExtGWT og RequestFactory integrasjon
Av: Stig Runar Vangen Fredag 04.02.2011 (13:42)

Sencha har sagt at de for neste versjon av ExtGWT kommer til å nærme seg standardene som Google bruker for GWT. Tidligere har man i ExtGWT måtte gjøre en del spesialtilpasninger for å få dataflyt til å fungere optimalt. Vi har forsøkt å foreberede kodebasen vår i påvente av ExtGWT 3, og en sentral bit her er RequestFactory, som både reduserer mengden data som overføres mellom klient og server, samt gjør at vi ikke trenger å skrive like mye kode for å endre på data. Disse endringene spenner seg over både server og klient side av kodebasen.

Spring og RequestFactory

Bruker foreløpig servlet angitt i web.xml. Denne er uavhengig av hvilken RequestContext du bruker, men hver implementasjon av disse er ikke Spring-kompatible. Derfor står dette som et punkt på listen over ting som må utbedres.


ExtGWT og RequestFactory

Sencha sier selv at main i ExtGWT 3 skal bevege seg mot en bedre integrasjon mot GWT. Dette innebærer å bruke de rammeverk som allerede eksisterer i GWT. Deriblant finner vi RequestFactory (introdusert i GWT 2.1), som er et rammeverk for å minimere trafikk over nettlinjen. Dette gjøres ved å bare sende endringer gjort i modellen i stedet for hele modellen. En grunnleggende introduksjon er tilgjengelig her:


Det første som slår meg når jeg leser denne dokumentasjonen, er at Google har brutt alle skikker for god programmering når de lagde dette rammeverket. Alle metoder for å hente ut data fra databasen ligger her som statiske metoder på entiteten. Det at disse metodene er statiske stopper for integrasjon mot Spring/Guice eller lignende. Det at de er plassert på entiteten gjør at koden ikke er separert i kodelag som gjør videre utvikling lettere. Dette har blitt gjort litt lettere i GWT 2.1.1, med en god del forbedringer for RequestFactory:


Man kan her dra ut implementasjon av uthenting av data fra entiteter ved hjelp av locators. Disse trenger heller ikke lenger være statiske, noe som letter implementasjon mot Spring ganske mye. Derimot er det veldig lite dokumentasjon tilgjengelig enda. Hverken Google eller bloggere har begynte skrive om det forbedrede rammeverket enda. Det har derfor vært en lang prosess med prøving og feiling for å integrere RequestFactory i vårt system.


RequestFactory GIN provider

  1. public class ContactRequestFactoryProvider implements
  2.   Provider<ContactRequestFactory> {
  4.   @Inject
  5.   private CoreGinjector coreGinjector;
  7.   @Override
  8.   public final ContactRequestFactory get() {
  9.     ContactRequestFactory contactRequestFactory =
  10.       GWT.create(ContactRequestFactory.class);
  11.     contactRequestFactory.initialize(coreGinjector.getEventBus(),
  12.       coreGinjector.getRequestTransport());
  13.     return contactRequestFactory;
  14.   }
  15. }


For oppretting av RequestFactory-objekter brukes en GIN-provider. Resultatet av denne er igjen bundet inn som en singleton gjennom GIN-konfigurasjonen. Denne initieres ved å bruke vår globale eventbus og en tilpasset transport-metode. Grunnen til at vi trenger en tilpasset transport-metode er at vi henter data fra en annen web-context enn den klienten ligger på.



  1. public interface ContactRequestFactory extends RequestFactory {
  2.   ContactRequest contactRequest();
  3. }


Factory i seg selv henviser bare til en request implementasjon.


Contact request

  1. @Service(value = ContactAdapter.class, locator = InstanceServiceLocator.class)
  2. public interface ContactRequest extends RequestContext {
  4.   Request<ContactProxy> get(String id);
  6.   Request<Void> persist(ContactProxy contact);
  8.   Request<Void> remove(ContactProxy contact);
  9. }


Her defineres de metodene man ønsker å bruke for å kommunisere fra klient til server. Dette er de metodene som er spesifikt for kontakt-modulen. Klassen er i seg selv annotert som en GWT-service, der implementasjonen av disse metodene ligger i ContactAdapter-klassen (trenger ikke lenger være entitets-klassen i GWT 2.1.1), mens ContactLocator (locators er nytt i GWT 2.1.1) tar seg av oppdateringer av entiteter.


Contact RequestFactory adapter

  1. @Component
  2. public class ContactAdapter {
  4.   private static ContactDao contactDao;
  6.   public ContactAdapter() {
  7.   }
  9.   @Autowired
  10.   public ContactAdapter(final ContactDao contactDao) {
  11.     ContactAdapter.contactDao = contactDao;
  12.   }
  14.   public final Contact get(final String id) {
  15.     Scanner scanner = new Scanner(id);
  16.     scanner.useLocale(Locale.ROOT);
  17.     if (scanner.hasNextLong()) {
  18.       return contactDao.get(scanner.nextLong());
  19.     }
  20.     return null;
  21.   }
  23.   public final void persist(final Contact contact) {
  24.     contactDao.saveOrUpdate(contact);
  25.   }
  27.   public final void remove(final Contact contact) {
  28.     contactDao.delete(contact);
  29.   }
  30. }


Her implementeres de metodene som er definert i request-interfacet. Klassen er tagget med @Component slik at Spring finner denne klassen gjennom auto-scanning. Vi slipper dermed spesifikk konfigurasjon per modul. En kontakt-DAO blir gitt fra Spring sin kontekst. Denne lagres som en statisk variabel. Grunnen til dette er at RequestFactory oppretter instanser av dette objektet uavhengig av Spring. Ved oppstart blir DAO overlevert fra Spring, og alle instanser av denne adapteren vil ha tilgang til gjeldende DAO.


Instance ServiceLocator

  1. public class InstanceServiceLocator implements ServiceLocator {
  3.   private static final Log LOGGER = LogFactory
  4.     .getLog(InstanceServiceLocator.class);
  6.   @Override
  7.   public final Object getInstance(final Class<?> clazz) {
  8.     try {
  9.       Object newInstance = clazz.newInstance();
  10.       return newInstance;
  11.     } catch (InstantiationException ex) {
  12.       LOGGER.fatal("Failed to create instance", ex);
  13.     } catch (IllegalAccessException ex) {
  14.       LOGGER.fatal("Failed to create instance", ex);
  15.     }
  16.     return null;
  17.   }
  18. }


Dette er en veldig enkel ServiceLocator som ganske enkelt oppretter nye instanser av den klassen man etterspør. Det er mulig at vi i senere tid vil trenge å hente ut data fra Spring sin context i stedet for å lage objekter utenfor.


Entity proxy

  1. @ProxyFor(value = Contact.class, locator = ContactLocator.class)
  2. public interface ContactProxy extends BaseEntityProxy {
  4.   String getAddress();
  6.   String getFirstName();
  8.   String getLastName();
  10.   void setAddress(String address);
  12.   void setFirstName(String firstName);
  14.   void setLastName(String lastName);
  15. }


Entitets-proxy-er blir implementert som autobeans på klientsiden. Disse er en speiling av entiteter på server-siden. Man må i proxy angi navn på metoder basert på Java Bean-standarden. Dette vil vanligvis være en speiling av de metode-navnene man finner i entiteten. Dette for at RequestFactory skal kunne hente data entiteten før de dras over til klienten. Dersom disse ikke stemmer overens får man feil ved første forsøk på uthenting av data. Merk også at vi her peker til en locator. Denne er ikke av typen ServiceLocator, som plasseres på en request.


  1. @Entity
  2. public class Contact extends AbstractDocumentEntity implements Serializable {
  4.   private String firstName;
  5.   private String lastName;
  6.   private String address;
  8.   public String getAddress() {
  9.     return address;
  10.   }
  12.   public void setAddress(String address) {
  13.     this.address = address;
  14.   }
  16.   public String getFirstName() {
  17.     return firstName;
  18.   }
  20.   public void setFirstName(String firstName) {
  21.     this.firstName = firstName;
  22.   }
  24.   public String getLastName() {
  25.     return lastName;
  26.   }
  28.   public void setLastName(String lastName) {
  29.     this.lastName = lastName;
  30.   }
  31. }


Dette er et forenklet utdrag av entiteten som autobean proxy peker til. Merk at metode-kallene i proxy kaller til feltene i klassen, ikke metodene. Begge klasser følger samme regelsett for navngiving av getters/setters.


Contact RequestFactory locator

  1. public abstract class DocumentEntityLocator<T extends AbstractDocumentEntity>
  2.   extends Locator<T, Long> {
  4.   private static final Log LOGGER = LogFactory.getLog(DocumentEntityLocator.class);
  6.   public DocumentEntityLocator() {
  7.   }
  9.   public abstract BaseDao<T> getDao();
  11.   @Override
  12.   public final T create(final Class<? extends T> clazz) {
  13.     try {
  14.       Class<? extends T> entityClass = getEntityClass(clazz);
  15.       if (entityClass != null) {
  16.       T newInstance = entityClass.newInstance();
  17.       getDao().saveOrUpdate(newInstance);
  18.         return newInstance;
  19.       }
  20.     } catch (InstantiationException ex) {
  21.       LOGGER.fatal("Failed to create instance", ex);
  22.     } catch (IllegalAccessException ex) {
  23.       LOGGER.fatal("Failed to create instance", ex);
  24.     }
  25.     return null;
  26.   }
  28.   @Override
  29.   public final T find(final Class<? extends T> clazz, final Long id) {
  30.     return getDao().get(id);
  31.   }
  33.   @Override
  34.   public final Class<T> getDomainType() {
  35.     return getDao().getDomainType();
  36.   }
  38.   @Override
  39.   public final Long getId(final T domainObject) {
  40.     return domainObject.getId();
  41.   }
  43.   @Override
  44.   public final Class<Long> getIdType() {
  45.     return Long.TYPE;
  46.   }
  48.   @Override
  49.   public final Object getVersion(final T domainObject) {
  50.     return domainObject.getRevisionNumber();
  51.   }
  53.   @SuppressWarnings("unchecked")
  54.   private <X extends Object> Class<X> getEntityClass(
  55.     final Class<? extends Object> clazz) {
  56.     Entity entity = clazz.getAnnotation(Entity.class);
  57.     if (entity != null) {
  58.       return (Class<X>) clazz;
  59.     }
  61.     Class<?> superclass = clazz.getSuperclass();
  62.     if (superclass != null) {
  63.       return getEntityClass(superclass);
  64.     }
  66.     return null;
  67.   }
  68. }


En locator er bindeledded mellom din modell-struktur og RequestFactory. Her definerer du hvordan man henter ut en entitet fra en id. I tillegg definers hvordan man finner id, versjon og type fra en entitet. DAO hentes her ut gjennom en abstrakt metode.


  1. @Component
  2. public class ContactLocator extends DocumentEntityLocator<Contact> {
  4.   private static final Log LOGGER = LogFactory.getLog(ContactLocator.class);
  5.   private static ContactDao contactDao;
  7.   public ContactLocator() {
  8.   }
  10.   @Autowired
  11.   public ContactLocator(final ContactDao contactDao) {
  12.     ContactLocator.contactDao = contactDao;
  13.   }
  15.   @Override
  16.   public final BaseDao<Contact> getDao() {
  17.     return ContactLocator.contactDao;
  18.   }
  19. }


Dette er en implementasjon av en locator for en gitt modul. Denne klassen er annotert med @Component for at Spring skal behandle den ved oppstart. Den statiske kontakt DAO blir da satt. Denne må være statisk da det er RequestFactory som i ettertid vil lage nye instanser av denne, og er som kjent ikke fullstendig Spring-kompatibel. Denne gis så til den abstrakte klassen via implementeringen av DAO-uthenting. Dette gjør det raskt og enkelt å sette opp nye moduler.


Videre plan er å gjøre et forsøk på å utvide RequestFactory på serverside slik at vi ikke er så avhengige av statiske variabler for Spring-Beans. Dette vil gjøre at koden er bedre rustet på endringer i fremtiden.



--Emner: Java, Utvikling, Web 2.0, WisWeb 2
Kommentarer: 0

Spring og GWT-RPC integrasjon
Av: Stig Runar Vangen Torsdag 03.02.2011 (14:23)

Som en del av implementasjonen av serverbiten av WisWeb 2 har vi gjort en jobb for integrasjon GWT og Spring. I tillegg har det blitt gjort en god del på klientsiden for å integrere RequestFactory innført i GWT 2.1 mot ExtGWT. Dette har til tider vært en frustrerende opplevelse, og ønsker her å publisere noen av de løsningene vi kom frem til slik at andre slipper å oppleve den samme frustrasjonen.


For GWT sine RPC-kall ønsker vi å konfigurere plassering av endepunkter gjennom Spring-annotasjoner. Dette krever at vi setter opp Spring-kontrollere i stedet for GWT-servlets. Denne integrasjonen gjøres i følgende kodebit.


  1. public abstract class AbstractRpcController extends RemoteServiceServlet {
  3.   private static final Log logger = LogFactory.getLog(AbstractRpcController.class);
  4.   private ServletContext servletContext;
  6.   @Override
  7.   public final ServletContext getServletContext() {
  8.     return servletContext;
  9.   }
  11.   @Autowired
  12.   public final void setServletContext(final ServletContext servletContext) {
  13.     this.servletContext = servletContext;
  14.   }
  16.   public abstract RemoteService getRemoteService();
  18.   @RequestMapping("/")
  19.   public final void request(final HttpServletRequest request,
  20.       final HttpServletResponse response) {
  21.     this.doPost(request, response);
  22.   }
  24.   @Override
  25.   public final String processCall(final String payload)
  26.       throws SerializationException {
  27.     try {
  28.       RPCRequest rpcRequest =
  29.         RPC.decodeRequest(payload, this.getRemoteService().getClass());
  30.       String result =
  31.         RPC.invokeAndEncodeResponse(this.getRemoteService(),
  32.           rpcRequest.getMethod(), rpcRequest.getParameters());
  33.       return result;
  34.     } catch (IncompatibleRemoteServiceException ex) {
  35.       logger.error("Caught an exception", ex);
  36.       return RPC.encodeResponseForFailure(null, ex);
  37.     } catch (Exception ex) {
  38.       logger.error("Caught a generic exception", ex);
  39.       return RPC.encodeResponseForFailure(null, ex);
  40.     }
  41.   }
  42. }


Selve kjernen her er den siste metoden. Her rutes en GWT-service inn til GWT sin implementasjon av RPC-behandling. Dette sørger for en sømløs integrasjon mellom GWT og Spring. Referanse til GWT-service er abstract, da hver modul-implementasjon bruker sin egen service.


  1. @Controller
  2. @SystemController
  3. @RequestMapping("/rpc/contact")
  4. public class ContactRpcController extends AbstractRpcController {
  6.   private ContactService contactService;
  8.   @Autowired
  9.   public final void setContactService(final ContactService contactService) {
  10.     this.contactService = contactService;
  11.   }
  13.   @Override
  14.   public final RemoteService getRemoteService() {
  15.     return this.contactService;
  16.   }
  17. }


Dette er en implementasjon av en modul-spesifikk RPC kontroller. Kontakt-service hentes her fra Spring sin kontekst, og gis tilbake til den abstrakte implementasjonen ved behov. Dette gjør det raskt og enkelt å legge til services for andre moduler.


--Emner: Java, Utvikling, Web 2.0, WisWeb 2
Kommentarer: 0

VBA UrlEncode
Av: Ove Halseth Lørdag 30.10.2010 (22:43)

I ett prosjekt så hadde vi behov for å poste en url. Problemet var bare at æøå rotet til alt på serversiden, og vi fikk ikke ut parametrene.

Etter litt googling så fant vi fort diverse varianter av UrlEncode, deriblandt en versjon som skulle støtte UTF-8:

Men vi kom ikke helt i mål, for vi fikk ikke konverteringen til UTF-8 til å virke:-( Nytt dykk i google kom opp med:

Som ga oss konvertering til UTF-8.

Resultatet ble:

Private Declare Function WideCharToMultiByte Lib "Kernel32.dll" ( _
    ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, _
    ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, ByVal cbMultiByte As Long, _
    ByVal lpDefaultChar As String, ByRef lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "Kernel32.dll" ( _
    ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, _
    ByVal cbMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Const CP_UTF8 As Long = 65001   ' UTF-8 translation

Public Function ToUTF8(ByRef inString As String) As String
    Dim BufLen As Long

    BufLen = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(inString), _
        Len(inString), vbNullString, 0&, vbNullString, ByVal 0&)
    If (BufLen > 0) Then
        ToUTF8 = Space$(BufLen)
        Call WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(inString), _
            Len(inString), ToUTF8, BufLen, vbNullString, ByVal 0&)
    End If
End Function

Public Function FromUTF8(ByRef inString As String) As String
    Dim BufLen As Long

    BufLen = MultiByteToWideChar(CP_UTF8, 0&, inString, -1, 0&, 0&)
    If (BufLen > 0) Then
        FromUTF8 = Space$(BufLen)
        BufLen = MultiByteToWideChar(CP_UTF8, 0&, inString, _
            Len(inString), ByVal StrPtr(FromUTF8), BufLen)
        FromUTF8 = Left$(FromUTF8, BufLen) ' Trim null
    End If
End Function


Public Function UrlEncode( _
   StringVal As String, _
   Optional SpaceAsPlus As Boolean = False, _
   Optional UTF8Encode As Boolean = True _
) As String
Dim StringValCopy As String
Dim StringLen As Long

StringValCopy = IIf(UTF8Encode, ToUTF8(StringVal), StringVal)
StringLen = Len(StringValCopy)

If StringLen > 0 Then
    ReDim Result(StringLen) As String
    Dim I As Long, CharCode As Integer
    Dim Char As String, Space As String
  If SpaceAsPlus Then Space = "+" Else Space = "%20"
  For I = 1 To StringLen
    Char = Mid$(StringValCopy, I, 1)
    CharCode = Asc(Char)
    Select Case CharCode
      Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
        Result(I) = Char
      Case 32
        Result(I) = Space
      Case 0 To 15
        Result(I) = "%0" & Hex(CharCode)
      Case Else
        Result(I) = "%" & Hex(CharCode)
    End Select
  Next I
  UrlEncode = Join(Result, "")
End If
End Function

Public Function UrlEncode( _
   StringVal As String, _
   Optional SpaceAsPlus As Boolean = False, _
   Optional UTF8Encode As Boolean = True _
) As String
Dim StringValCopy As String
Dim StringLen As Long

StringValCopy = IIf(UTF8Encode, ToUTF8(StringVal), StringVal)
StringLen = Len(StringValCopy)

If StringLen > 0 Then
    ReDim Result(StringLen) As String
    Dim I As Long, CharCode As Integer
    Dim Char As String, Space As String
  If SpaceAsPlus Then Space = "+" Else Space = "%20"
  For I = 1 To StringLen
    Char = Mid$(StringValCopy, I, 1)
    CharCode = Asc(Char)
    Select Case CharCode
      Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
        Result(I) = Char
      Case 32
        Result(I) = Space
      Case 0 To 15
        Result(I) = "%0" & Hex(CharCode)
      Case Else
        Result(I) = "%" & Hex(CharCode)
    End Select
  Next I
  UrlEncode = Join(Result, "")
End If
End Function


Ove B-)

--Emner: Access, Utvikling, VBA
Kommentarer: 0

Kan ikke slette i de angitte tabellene
Av: Ove Halseth Mandag 23.08.2010 (07:22)

MsAccess Kan ikke sletteOfte når jeg støter på problemer i Windows så har jeg på følelsen av at det finns sikkert en sjekkboks for dette problemet ett sted.

Problemet er bare og finne ut hva sjekkboksen heter og hvor den er gjemt.


Grunnen til at du leser denne bloggen er kanskje fordi du har støtt borti denne feilmeldingen i MSAccess:

"Kan ikke slette i de angitte tabellene"


Da har jeg en god nyhet! Om ikke en sjekkboks så fins det en setting som "slår av" denne feilmeldingen.

- Når du har spørringen fremme, så trykk Alt-Enter for å få frem egenskapssiden til spørringen.

- Her setter du Entydige poster til Ja.


Entydige poster er altså navnet på dette problemets hake...

Løsningen ble funnet hos Microsoft kundestøtte! Etter litt googling.



Ove B-)

--Emner: Access, Database/SQL, Utvikling
Kommentarer: 0

De tre gruppene av utviklere
Av: Stig Runar Vangen Mandag 08.03.2010 (00:00)

I forbindelse med mitt GameLib-prosjekt brukte vi klassifisering av utviklere fra Microsoft. Fant igjen denne artikkelen om forskjellige utvilkler-grupper, og bestemte meg for å oversette og legge ut denne teksten. Merk at denne sammenligningen bare sammenligner hvordan utviklergruppene tenker rundt bruken av tredjeparts biblioteker. For en mer humoristisk generell sammenligning, se også her.


Systematisk utviklere (Systematic programmers) har en tendens til å følge en defensiv koding stil. De gjør ikke antagelser om koden de skriver, plattformen den kjører på, klasse-bibliotekene som de bruker osv. For eksempel vil de ikke anta at et klasse-biblioteket vil oppføre seg som annonsert. I stedet vil systematiske utviklere teste biblioteket i et trygt miljø, inspisere bibliotekets kildekode etc før de bruker den i et produksjonsmiljø. Systematiske utviklere ønsker programmeringsspråk og APIer som gir dem full kontroll over eksekveringen av koden sin, og som ikke skjuler viktige detaljer fra dem, selv om det betyr at de må skrive mer kode og bruke mer tid på å forstå hvordan koden virker. De verdsetter å kunne komme under overflaten og finpusse komponenter eller erstatte dem.


Pragmatiske utviklere (Pragmatic programmers) har en tendens til å være mindre defensiv enn systematiske utviklere. I mange tilfeller er de mer komfortable med å gri fra seg kontrollen over koden for bedre produktivitet så lenge de er klar over fordelene de vinner. I stedet for å bruke tid på å oppnå en full forståelse av alle detaljer rundt et API, vil de foretrekker å lære underveis, å bygge opp forståelse for APIet samtidig med det arbeidet de gjør. De verdsetter å kunne komme under overflaten og finpusse komponenter når de må, men vil helst ikke måtte gjøre det.


Opportunistiske utviklere (Opportunistic programmers) verdsetter produktivitets-funksjoner i et språk, API eller IDE svært høyt, ofte høyere enn noe annet. I motsetning til systematiske utviklere, setter de mindre verdi i å ha full kontroll over koden deres, siden for opportunistiske utviklere kontrollen over koden mindre verdt enn utviklings-tid. De særlig verdsetter 3. parts komponenter og APIer som tillater dem å konsentrere seg om virksomhetens problemet som de prøver å løse, snarere enn på konfigurering av komponenter eller tilpasser API slik at det oppfyller deres krav. De ser ingen verdi i å kunne komme under overflate og tilpasse komponenter - de ville heller lete etter et annet API eller komponent som møter deres behov fremfor å endre komponenter eller APIer som de allerede har.

Hvilken type utvikler er du?

--Emner: Utvikling
Kommentarer: 0

 Nye poster
Fixing missing (30.05.2012)
Redirect dll us (30.05.2012)
Laste ned passo (11.05.2012)
Bare si "Nei ti (12.12.2011)
Posten er slett (16.11.2011)
 Populære emner
Access  Ajax  Ansatte  Brannmur  Database/SQL  Debugging  Delphi  FortiClient  Fortigate  GSI  Hjemmet  Html  Internett  iPhone  iPhone Apps  Java  JavaScript  JVM  Nerdehumor  Nettverk  Operativsystem  Palm  Servere  Skrivere  Sybase  Utvikling  VBA  Vista  VPN  Web 2.0  Windows  WinXP  WIS  Wis Tiltak  WisWeb 1  WisWeb 2  Word  XML
 Vis måned
Mai 2012 (3)
Desember 2011 (1)
November 2011 (1)
September 2011 (2)
August 2011 (1)
 Vis fra forfatter
Ove Halseth (46)
Dag Waade (9)
Stig Runar Vangen (7)
Svein Waade (6)
Inge Valaas (1)
Inger Berg (1)
Kristian Ljøkelsøy Vitsø (1)