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]
參考資料：
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