Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
procedure TDAPClass.CreateBlankFile( const FilePath: String ); const TmpFileBuffer : Byte = ($00); dwFlagsAndAttr = FILE_FLAG_RANDOM_ACCESS; var hTmpFile : THandle; nBytesWritten : DWORD; I : Integer; begin // Create a temp blank file hTmpFile := CreateFile( PChar( FilePath ), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_TEMPORARY or dwFlagsAndAttr, 0 ); for I := 0 to Pred(nConnections) do begin // seek to given offset SetFilePointer( hTmpFile, i64EndOffset[I] - 1, nil, FILE_BEGIN ); Sleep(500); // Write 1 byte in current offset WriteFile( hTmpFile, TmpFileBuffer, SizeOf(TmpFileBuffer), nBytesWritten, nil ); Sleep(500); end; // Close Temp file handle CloseHandle( hTmpFile ); end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.