各位大大午安 我有底下的一個程式要連遠端資料庫叫出圖檔 但我不會下與Server通過的ursername與password指令 請會的大大教我，謝謝 UserName: aaa PassWord: bbb 請問該如何加入下列圖片連結下指令？ Image1.Picture.LoadFromFile('\\Nat2000\WWWRoot\Images\abc.jpg')

網路抓的,參考看看 你的問題跟資料庫似乎無關,po錯地方了@@ < class="code">function ConnectDrive(_drvLetter: String; _netPath: String; _password: String; _username: String; _showError: Boolean; _reconnect: Boolean; _interactive: Boolean): DWORD; var nRes :TNetResource; dwFlags :DWORD; errCode :DWORD; begin FillChar(NRes,SizeOf(NRes),#0); nRes.dwType:=RESOURCETYPE_DISK; nRes.lpLocalName:=PChar(_drvLetter); nRes.lpRemoteName:=PChar(_netPath); nRes.dwScope:=RESOURCE_GLOBALNET; dwFlags:=0; If _reconnect then dwFlags:=CONNECT_UPDATE_PROFILE; If _reconnect and _interactive then dwFlags:=CONNECT_UPDATE_PROFILE and CONNECT_INTERACTIVE; Result:=WNetAddConnection3(form1.Handle,nRes,PChar(_password),PChar(_username),dwFlags); end; function DisConnectDrive(_drvLetter: String; _showError: Boolean; _force: Boolean; _save: Boolean): DWORD; var nRes :TNetResource; dwFlags :DWORD; errCode :DWORD; begin if _save then dwFlags:=CONNECT_UPDATE_PROFILE else dwFlags:=0; errCode:=WNetCancelConnection2(PChar(_drvLetter),dwFlags,_force); if (errCode<>NO_ERROR) and (_showError) then begin Application.MessageBox(PChar(SysErrorMessage(GetLastError)), 'Error Disconnecting Drive', MB_OK); end; Result:=errCode; {NO_ERROR} end; procedure TForm1.BitBtn1Click(Sender: TObject); begin ConnectDrive('k:', '\\127.0.0.3\A','aaa','bbb', True, True,True); image1.Picture.LoadFromFile('\\127.0.0.3\A\1.bmp'); DisConnectDrive('k:' ,True, True,True); end; 發表人 - pgdennis 於 2005/07/14 16:03:26

------
星期一,二...無窮迴圈＠＠

謝謝大大幫忙，雖然看不太懂，但我會努力去了解怎麼連。 很抱歉我po錯地方了，因為最近滿腦子資料庫的問題，就沒注意到放了上來。