Results 1 to 9 of 9

Thread: Problemen met source conversie

  1. #1
    (split van http://www.nldelphi.com/forum/showth...?threadid=1000)

    Gaat het met ouptut naar HTML (hier op de site) wel goed, of gaat ie dan ook de mist in?
    Marcel

  2. #2
    Senior Member PsychoMark's Avatar
    Join Date
    Nov 2001
    Location
    Raamsdonksveer
    Posts
    10,269
    Volgens mij zit het probleem 'm in het forum, aangezien de code die ik gebruikt heb om te testen in beiden gevallen correct was, alleen het forum maakte er [ /b] van...
    Qui custodiet ipsos custodes

  3. #3
    ************************************************** ***************

    Hmm, dat wordt zoeken want dit blijft wel weer gewoon staan natuurlijk

    Code:
    ****************************************************************
    Marcel

  4. #4

    probeersel...

    Ik zal nog eens proberen....

    vbcode:

    Code:
    unit uFileInfo;
    
    interface
    uses
      WinTypes, WinProcs, SysUtils {$IFNDEF WIN32} ,Ver {$ENDIF};
    
    const
      VersionInfo: array [1..8] of string = (
        'CompanyName', 'FileDescription', 'FileVersion', 'InternalName',
        'LegalCopyRight', 'OriginalFileName', 'ProductName', 'ProductVersion');
    
    function GetFileInfo(FName, InfoType: string): string;
    function GetVersionFromBuild(FName: string) : string;
    
    implementation
    
    function GetFileInfo(FName, InfoType: string): string;
    var
      Info     : Pointer;
      InfoData : Pointer;
      InfoSize : LongInt;
      InfoLen  : {$IFDEF WIN32} DWORD;{$ELSE} LongInt; {$ENDIF}
      DataLen  : {$IFDEF WIN32} UInt; {$ELSE} word; {$ENDIF}
      LangPtr  : Pointer;
    begin
      result:=''; DataLen:=255;
      if Length(FName)<=0 then exit;
      FName:=FName+#0;
       InfoSize:=GetFileVersionInfoSize(@Fname[1], InfoLen);
      if (InfoSize > 0) then
        begin
          GetMem(Info, InfoSize);
          try
            if GetFileVersionInfo(@FName[1], InfoLen, InfoSize, Info) then
              begin
                if VerQueryValue(Info,'\VarFileInfo\Translation',LangPtr,DataLen) then
                    InfoType:=Format('\StringFileInfo\%0.4x%0.4x\%s'#0,[LoWord(LongInt(LangPtr^)), HiWord(LongInt(LangPtr^)), InfoType]);
                if VerQueryValue(Info,@InfoType[1],InfoData,Datalen) then
                  Result := strPas(InfoData);
              end;
          finally
            FreeMem(Info, InfoSize);
          end;
        end;
    end;
    
    {usage:
    
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[1]));
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[2]));
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[3]));
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[4]));
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[5]));
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[6]));
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[7]));
      showmessage(GetFileInfo(Application.ExeName, VersionInfo[8]));
    }
    
    function GetVersionFromBuild(FName: string) : string;
    var
      x, ver : string;
    begin
       result := '';
       x := GetFileInfo(FName, VersionInfo[3]);
       while pos('.', x) > 0 do
       begin
         ver := ver + copy(x, 1, pos('.', x));
         x := copy(x, pos('.', x) + 1, length(x) - pos('.', x) );
       end;
       result := copy(ver,1,length(ver) - 1);
    end;
    
    end.

  5. #5

    het gaat dus niet goed...

    Helaas...

  6. #6
    Maar wat stond er nou wat niet juist vertaald wordt? Wil je me de pas-file even mailen?
    Marcel

  7. #7
    hier is die dan...
    Attached Files Attached Files

  8. #8
    Hmmm, er gaat inderdaad in de forumsoftware iets mis en niet in de sourceconversie. Als ik de spatie tussen het if statement het color statement verwijder gaat het opeens wel goed. Dat wordt spitten in de PHP source vrees ik...
    Marcel

  9. #9
    Van PHP heb ik (nog) geen verstand... Suc6 dus !

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. problemen met DefFrameProc
    By Victor in forum Algemeen
    Replies: 5
    Last Post: 01-Feb-04, 16:37
  2. problemen met 'watermerk' in reportb
    By Acid Burn in forum Algemeen
    Replies: 2
    Last Post: 25-Mar-03, 00:48
  3. problemen met project geopend met GExperts
    By MisterE in forum Algemeen
    Replies: 4
    Last Post: 20-Nov-02, 16:33
  4. Graphic programma met source
    By Patrick in forum Artikelen & tips
    Replies: 0
    Last Post: 17-Jun-02, 22:41

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •