delphi-7

4熱度

1回答

我們的一個應用程序在通過pcAnywhere控制的計算機上失敗，因爲ImageList_Add（）WinAPI函數在一段時間後無法添加圖像/蒙版。該函數返回-1，圖像列表中的圖標數量不會改變。在所有其他電腦上，這是沒有問題的。有趣的是，我們可以將99位圖（LoadBitmap）添加到圖像列表，但通過添加第100位圖ImageList_Add停止工作。我試圖編寫一個簡單的測試應用程序，它可以通過指

4熱度

9回答

德爾福7編譯越來越慢？

我的項目有大約400個單元，需要20-40secs才能重新編譯後重新編譯，然後再編譯爲1-5secs以進行後續重新編譯，到目前爲止狀況良好。工作超過3-6小時後，編譯需要1-3分鐘進行後續重新編譯，這迫使我每次都重新啓動。 D7中是否有泄漏？是Windows XP的問題嗎？它變得非常令人沮喪... 有人遇到這個問題嗎？ EDIT1 DelphiSpeedup似乎並沒有改善問題，但仍然出現....

1熱度

2回答

Delphi 2007已安裝後，可以安裝Delphi 2006嗎？

在計算機崩潰後重建期間，我重新安裝了Delphi 7，然後是Delphi 2007.我們跳過了Delphi 2006的安裝。但是，現在我想在Embarcadero停止允許下載最新版本的D2006之前安裝Delphi 2006。是否可以在這臺電腦上安裝Delphi 2006而不會對其他兩個安裝產生不利影響？我唯一擔心的是SYSTEM PATH變量中混合的潛在問題，其中每個Delphi版本都使用系

2熱度

3回答

創建和解析XML文檔的最佳做法

我不確定是否應該使用TXMLTransformProvider或TXMLDocument。 TXMLTransformProvider看起來更易維護，而且在我看來，使用它比TXMLDocument需要更少的編碼。另一方面，TXMLDocument看起來更加靈活。我需要的是生成並解析具有嵌套屬性的XML文檔，將其映射到master-detail clientDataSets並寫回一個XML文檔。

3熱度

5回答

添加了{APPTYPE CONSOLE}指令，現在我的應用程序運行非常緩慢。移動鼠標使其運行速度更快

我試圖擴展第三方應用程序，以便除了使用窗體窗體GUI（需要混合模式）外，還可以通過命令行調用它。這是一個相當簡單的程序，基本上加載一個文件，然後你點擊一個按鈕開始發送UDP網絡數據包。我需要調用另一個應用程序，並希望傳入參數，並且需要能夠將ExitCode返回給調用應用程序。從我讀過的，爲了做到這一點，你需要添加編譯器指令{APPTYPE CONSOLE}。我做到了這一點，我的應用程序工作，因

9熱度

2回答

Delphi的TADOConnection線程安全嗎？

我寫這需要同時從多個不同線程訪問相同的SQL Server數據庫的Delphi 7應用程序。我可以用一個單一的共享TADOConnection，或者必須在每個線程創建自己的？

2熱度

3回答

XML文檔和＆char？

我有一個關於XML文檔特殊字符的問題，我正在使用&處理XML和TXMLDoc中的項目的值。Delphi解析器正在抱怨它。我尋找一些XML解析選項，但他們沒有關於特殊字符，什麼想法？實施例： <Configuration> <Configuration_item> <view_name value="some view & name"/> .... 問候，米卡

7熱度

6回答

爲什麼要檢查對象方法中的Assigned（self）？

我用下面的檢查看一些代碼（德爾福7）是在每一個方法調用的頂部特定對象： if not Assigned(self) then raise Exception.CreateRes(@sAbstractError); { Real code for this method} 我想，這將防止我試圖調用一個方法空對象指針。但是，無論如何，只要我試圖訪問成員數據，我就會得到一個異常

23熱度

2回答

如何在Delphi 7中獲取當前方法的名稱？

有什麼方法可以知道我目前使用的方法的名稱嗎？這樣： procedure TMyObject.SomeMethod(); begin Writeln('my name is: ' + <hocus pocus>); end; 會產生這樣的輸出： my name is: SomeMethod

48熱度

5回答

德爾福：StringList分隔符總是空格字符，即使設置了分隔符

我在TStringList類中的分隔符有問題。請看： var s: string; sl: TStringList; begin sl := TStringList.Create; s := 'Users^foo bar^bar foo^foobar^barfoo'; sl.Delimiter := '^'; sl.Delimited