瑞凡!我們一樣回得去耶~Archive.org網站時光機

Internet Archive是國外的一個非營利的網路檔案館,固定時間會將網站、音樂、動態圖像、和數百萬書籍利用爬蟲程式永久性儲存。
壽山最喜歡的功能是網站檔案的部份,可以搜尋到某個網站N年前的樣貌~分享給大家!
http://archive.org/web/

SQL SERVER EXPRESS資料庫備份方式

因為SQL SERVER EXPRESS精簡版本沒有備份的工具,所以需要自己整理。
建立一個 .BAT批次檔用sqlcmd來執行以下的SQL指令
[SQL]
USE YOURDBNAME — 記得改成你的資料庫名稱
GO
DECLARE @backupTime VARCHAR(20)
DECLARE @sqlCommand NVARCHAR(1000)
SELECT @backupTime=(CONVERT(VARCHAR(8), GETDATE(), 112)
+REPLACE(CONVERT(VARCHAR(5), GETDATE(), 114), ‘:’, ”))
SET @sqlCommand = ‘BACKUP DATABASE YOURDBNAME TO DISK=”D:\DBBACKUP\BACKUP_’ + @backupTime+’.bak”’
EXECUTE sp_executesql @sqlCommand
GO
[/SQL]
參考資料:

SQLCMD公用程式

Delphi透過MySQL存入檔案備份

MySQL存Blog的大小
TINYBLOB – 255 bytes
BLOB – 65535 bytes
MEDIUMBLOB – 16,777,215 bytes (2^24 – 1)
LONGBLOB – 4G bytes (2^32 – 1)

透過資料庫存取的方式重點:

TBlobField – LoadFromStream、SaveToStream
Tmemorystream – LoadFromFile、SaveToFile(.Position :=0)

存入資料庫

[pascal]
var
astream : Tmemorystream;
begin
AStream := TMemoryStream.Create;
try
astream.LoadFromFile(filename);
AStream.Position := 0;
if adotable1.Active then
begin
adotable1.Edit;
TBlobField(adotable1.FieldByName(‘t2’)).LoadFromStream(AStream);
adotable1.Post;
end;
finally
AStream.free;
end;
end;
[/pascal]

存回檔案

[pascal]
var
Ms:Tmemorystream;
begin
Ms := Tmemorystream.Create;
try
if adotable1.Active then
begin
TBlobField(adotable1.FieldByName(‘t2’)).SaveToStream(Ms);
Ms.Position := 0;
MS.SaveToFile(sname);
end;
finally
ms.Free;
end;
end;
[/pascal]

MySQL預設的BLOB為1M
別忘了 My.ini調整
max_allowed_packet = XXM