(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?
(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
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
************************************************** ***************
Hmm, dat wordt zoeken want dit blijft wel weer gewoon staan natuurlijk
Code:****************************************************************
Marcel
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.
Helaas...
Maar wat stond er nou wat niet juist vertaald wordt? Wil je me de pas-file even mailen?
Marcel
hier is die dan...
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
Van PHP heb ik (nog) geen verstand... Suc6 dus !
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks