ab.com コミュニティ

コード: 全て選択

'グローバル変数
Dim lpszUsingSoftName As BytePtr		'DLLを使用するソフト名
Dim lpszUsingSoftAutherName As BytePtr	'DLLを使用するソフトの作者名
Dim hwndOwner As HWND					'親ウインドウハンドル
Dim lpstrLogFileName[MAX_PATH] As Byte	'ログファイルのパス
Dim hFile As HFILE						'ログファイルのハンドル
Dim lpszLogBuffer As BytePtr			'ログファイルのバッファ
Dim dwSecureBufferSize As DWord			'確保したバッファのサイズ

lpszLogBuffer=malloc(10^9*1)
dwSecureBufferSize=10^9*1

---略---

'ログファイル生成
Function Export MakeLogFile(lpszLogFilePath As BytePtr, cHRChar As *Char, nHRNum As Long) As Long
	Dim i As Long

	lstrcpy(lpstrLogFileName, lpszLogFilePath)

	'ログファイルをオープン
	hFile=CreateFile(lpstrLogFileName, GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,
						ByVal 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
	If hFile=INVALID_HANDLE_VALUE Then
		MessageBox(hwndOwner, "ログファイルハンドルの作成に失敗", 
						"Error - AddLogFunction", MB_OK or MB_ICONSTOP)
		hFile=0
		MakeLogFile=0
		Exit Function
	End If

	wsprintf(lpszLogBuffer, Ex"%s LogFile\r\nCopyRight(C) %s, All Rights Reseved.\r\n\r\nLogFile Made By AddLogFunction\r\nCopyRight(C) yu0627, All Rights Reseved.\r\n",
				lpszUsingSoftName, lpszUsingSoftAutherName)
	i=1
	For i=1 To nHRNum
		lstrcat(lpszLogBuffer, cHRChar)
	Next

	lstrcat(lpszLogBuffer, Ex"\r\n")

	MakeLogFile=1
End Function

Function Export OpenLogFile(lpszLogFilePath As BytePtr, cHRChar As *Char, nHRNum As Long) As Long
	Dim dwFileSize As DWord			'ファイルサイズ
	Dim dwAccessByte As DWord		'アクセスサイズ
	Dim i As Long					'フラグ

	lstrcpy(lpstrLogFileName, lpszLogFilePath)

	'ログファイルをオープン
	hFile=CreateFile(lpstrLogFileName, GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
	If hFile=INVALID_HANDLE_VALUE Then
		MessageBox(hwndOwner, "ログファイルのオープンに失敗", "Error - AddLogFunction", MB_OK or MB_ICONSTOP)
		hFile=0
		OpenLogFile=FALSE
		Exit Function
	End If

	'ログファイルのバイト数を取得し、バッファを確保する
	dwFileSize=GetFileSize(hFile, 0)

	If dwFileSize>=dwSecureBufferSize Then
		lpszLogBuffer=realloc(lpszLogBuffer, lstrlen(lpszLogBuffer)+10^9*1)
		dwSecureBufferSize=lstrlen(lpszLogBuffer)+10^9*1
	End If
	
	'ログファイルの内容を読み込み、前のログとの区切り線を入れる
	ReadFile(hFile, lpszLogBuffer, dwFileSize, VarPtr(dwAccessByte), ByVal 0)

	i=1
	For i=1 To nHRNum
		lstrcat(lpszLogBuffer, cHRChar)
	Next

	lstrcat(lpszLogBuffer, Ex"\r\n")

	'ファイルハンドルを開きなおす
	CloseHandle(hFile)
	hFile=CreateFile(lpstrLogFileName, GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)

	OpenLogFile=1
End Function

コード: 全て選択

Declare Sub FirstSetting Lib "addlogfunc"(lpszSoftName As BytePtr, lpszAutherName As BytePtr, hwnd As HWND)
Declare Function MakeLogFile Lib "addlogfunc"(lpszLogFilePath As BytePtr, cHRChar As *Char, nHRNum As Long) As Long
Declare Function OpenLogFile Lib "addlogfunc"(lpszLogFilePath As BytePtr, cHRChar As *Char, nHRNum As Long) As Long
Declare Sub AddLog Lib "addlogfunc"(lpszLog As BytePtr)
Declare Sub CloseLogFile Lib"addlogfunc"()

Dim lpstrLogFilePath[MAX_PATH-1] As Byte

lstrcpy(lpstrLogFilePath, "D:\My Documents\プログラミング\Source\addlogfunc\test.log")

FirstSetting("Test", "yu0627", 0)
If GetFileAttributes(lpstrLogFilePath)=-1 Then
	If MakeLogFile(lpstrLogFilePath, "=", 60)=0 Then goto *End
Else
	If OpenLogFile(lpstrLogFilePath, "-", 60)=0 Then goto *End
End If
AddLog("Test Start!")
AddLog("Ifcdjmdldf,nmdf,.cfmdj.;lgvjkgmd.;fmsxk;vjxdf,")
AddLog("cfjkld;fvmdf.;vjknsdoijf")
AddLog("Test End!")
CloseLogFile()
*End
ExitProcess(0)