function TNetServer.GetFreePort(aPort: Integer): Integer;
var
_vSock: TSocket;
_vWSAData: TWSAData;
_vAddrIn: TSockAddrIn;
begin
try
if WSAStartup(MAKEWORD(2, 2), _vWSAData) = 0 then begin
_vSock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
try
if _vSock <> SOCKET_ERROR then begin
_vAddrIn.sin_family := AF_INET;
_vAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
_vAddrIn.sin_port := htons(APort);
while (Bind(_vSock, _vAddrIn, SizeOf(_vAddrIn)) <> 0) and (WSAGetLastError = WSAEADDRINUSE) do
begin
inc(aPort);
_vAddrIn.sin_port := htons(aPort);
end;
end;
finally
CloseSocket(_vSock);
WSACleanup();
end;
end;
finally
Result := aPort;
end;
end;
if aPort > XXXXX then aPort := OOOOO;
Break;
中斷執行迴圈，可從當前 for…to…do、while…do、repeat…until 執行中途跳出，繼續執行該迴圈的下一段程式碼。
Continue;
繼續迴圈，可從當前 for…to…do、while…do、repeat…until 執行中途，忽略以下程式碼，跳到迴圈頭續續執行。
Exit;
離開函式，可從當前 procedure、function 執行中跳出，繼續執行呼叫的程式碼。
Abort;
中斷函式，可從當前 procedure、function 執行中跳出，並觸發 try…except(如有將 Abort 包進 try…except)
procedure Test;
begin
for i := 0 to 3 do
begin
if i := 0 then begin
continue;
ShowMessage('After Continue' + IntToStr(i));
end;
if i := 2 then begin
break;
ShowMessage('After Break;' + IntToStr(i));
end;
ShowMessage('End of If' + IntToStr(i));
end;
ShowMessage('End of For' + IntToStr(i));
end; // end of procedure
結果應該會依序出現
End of If 1
End of For 3
procedure Test;
begin
try
Abort;
ShowMessage('After Abort 1');
except
ShowMessage('Enter Except 1');
end;
ShowMessage('Out try...except 1 ');
try
Exit;
ShowMessage('After Exit 2');
except
ShowMessage('Enter Except 2');
end;
ShowMessage('Out try...except 2');
end;
結果應該會依序出現
Enter Except 1
Out try…except 1
舊的方法原本是以下這樣，後來我裝新的XP系統時發現無法成功
首先從 http://www.indyproject.org/downloads/10/indy10.0.52_source.zip 下載壓縮檔。
(或是到這個網頁找 http://www.indyproject.org/sockets/download/files/indy10.en.aspx )
新的方式(成功率大幅提高)
從 http://indy.fulgan.com/ZIP/ 下載開發中的Indy10，(2014.3.3)今日的版本是 Indy10_5099.zip
(下載舊方法的連結 indy10.0.52_source.zip 應該也可以，但我沒試過)
開始進行安裝
先移除原安裝的 Indy (Delphi7之後好像都會自動裝Indy9，大致和舊方式相同，這邊再寫詳細一點)：
確定以上步驟都完成，或是您確定沒安裝任何版本的Indy ，就可以開始進行安裝
我照這個步驟的成功率目前是百分百，提供給大家試試看
參照網址 http://www.indyproject.org/Sockets/Docs/Indy10Installation.EN.aspx
從資料庫抓取資料出來時，卻不確定筆數有幾筆，可以用這種方式，在將資料庫資料抓出來後，設定陣列的長度空間並放入資料。
定義結構 Record 及 Array
type
RDBData = Record
A:Integer;
B:String;
end;
ARDBData = Array of RDBData;
設定 Array 長度
function GetData: ARDBData;
var
dbData: ARDBData;
i: Integer;
begin
...
dbQuery.SQL.Text := 'SELECT * FROM [User]';
dbQuery.Open;
SetLength(dbData, dbQuery.RecordCount);
for i := 0 to dbQuery.RecordCount - 1 do begin
dbData[i].A := dbQuery.Fields[0].AsInteger;
dbData[i].B := dbQuery.Fields[1].AsInteger;
dbQuery.Next;
end;
Result := dbData;
...
end;
偶爾會用到，當要尋找兩個(或以上)不同資料表之間，有相同的兩個以上的值需互相比較，找出符合條件的結果之時。
有需要用到 別名Alias
SELECT t1.Value_a1, t1.Value_a2
FROM ( SELECT [Value_a1], [Value_a2] FROM [Table1] WHERE [ID]=123 ) AS t1,
( SELECT [Value_b1], [Value_b2] FROM [Table2] WHERE [ID]=456 ) AS t2
WHERE t1.Value_a1 <= t2.Value_b1 and t1.Value_a2 <= t2.Value_b2;
在對資料進行異動前，為避免異動失敗，造成後續存取資料不正確，因此使用ADO交易模式，在發生錯誤失敗時，回復相關異動。
主要動作如下：
Code Sample:
begin
Try
ADOConnection1.BeginTrans; // 開始交易
ADOQuery1.Insert; // 或 Delete, Edit
ADOQuery1.FieldByName('fieldname').Value := ...;
ADOQuery1.Post;
ADOQuery1.Close;
ADOQuery1.SQL.Text:='............';
ADOQuery1.ExecSQL / Open;
ADOConnection1.CommitTrans; // 確認交易
Except
ADOConnection1.RollBackTrans; // 取消交易
end;
end;
我想這麼做很久了，嘿嘿嘿
今天在這邊看到的
http://arkelin.blogspot.com/2007/10/bloggernavbar.html
想要把導覽列變不見
進入「修改 Html」-> 點擊「展開小裝置範本」
在 </head> 之前加入下列程式碼 .Navbar {visibility:hidden;display:none;}
再點擊「儲存範本」
檢視網誌之後，就看到那一條長長的不見啦！！