lazarus

    3熱度

    1回答

    我正在使用sqldb從我的DLL中連接到Firebird。這個失敗是因爲它找不到與我的DLL實際存在於同一目錄中的fbclient.dll。 GetCurrentDir將路徑返回到Windows系統文件夾。使用DLL的路徑執行SetCurrentDir已成功更改當前目錄,但仍不起作用。我能做些什麼來讓sqldb在我選擇的位置使用fbclient.dll?

    6熱度

    1回答

    組織我的應用程序的源代碼轉換爲帕斯卡編譯單元使用File -> New Unit 以下單位編制好...... unit CryptoUnit; {$mode objfpc}{$H+} interface function Encrypt(key, plaintext:string):string; function Decrypt(key, ciphertext:str

    2熱度

    1回答

    我有TButton和TPaintBox簡單的FreePascal代碼。 我對這些元素的事件: procedure TForm1.Button1Click(Sender: TObject); begin Button1.Enabled := False; Button2.Enabled := True; Button1.Caption := 'Off'; B

    0熱度

    1回答

    我正在運行一些查詢(試圖)使用Lazarus對象而不是編程方式,我有我的數據庫連接和事務設置並與我的查詢進行交互,並且正在讀取和初始查詢進入TDBGrid。現在我想要做的就是點擊一個網格單元格並選擇一個用於查詢的ID值。 我有一個TSQLQuery對象設置和鏈接到源,我進入到這個SQL屬性: SELECT * FROM tbl_accounts WHERE tbl_accounts.Client

    0熱度

    1回答

    直到今天,我在使用Windows 7(64位)下的Lazarus IDE v1.0.10 32位時沒有任何問題。 經過對項目的一些工作後,運行按鈕(綠色三角形)不再運行該應用程序。它編譯它,Lazarus標題欄變爲「Lazarus IDE v1.0.10 - project1(調試...)」,大約一分鐘後標題恢復正常,運行圖標再次變爲綠色。任何時候都不會顯示申請表。 如果我嘗試按F7運行應用程序,

    0熱度

    1回答

    我試圖在Lazarus項目中添加搜索和替換功能到TSynEdit組件,並且我正在使用TSynEdit.SearchReplace(),TFindDialog和TReplaceDialog。 所有似乎正在工作,因爲我需要它,除了我無法找到一種方法來確定替換對話框上單擊「替換」或「全部替換」按鈕。 我已經編寫了OnFind事件和OnReplace事件的代碼,但似乎沒有發生OnReplaceAll事件。

    2熱度

    1回答

    您好我有一個表單設置使用TMySQL51Connection,TSQLTransaction & TSQLQuery模塊,它從數據庫中檢索信息沒有問題,但我有更新的問題。 數據庫非常大,所以我開始時只是第一對行,一旦他們工作,我會延長查詢。 我TSQLQuery.UpdateSQL如下 UPDATE table SET ContactFirst = :ContactFirst, Contact

    0熱度

    1回答

    我試圖讓FreePascal打開一個Word文檔,附加一些文本和數據,然後關閉它。我已經設法建立連接,並可以寫一行到文檔,但任何東西都擊敗了我。目前我正在嘗試this Visual Basic reference中的方法詳細信息,這與我期望FreePascal處理事情的方式非常相似。 基本上我想我誤解了Lazarus和Word OLE之間的關係是如何工作的,任何人都可以給我提供關於如何構建一個簡單

    1熱度

    1回答

    我想在Raspberry Pi上與Lazarus一起開發,但到現在爲止我不能。 Here我讀過這樣的: 在Raspbian OS很容易安裝和拉撒路的Free Pascal。爲了做到這一點,只需打開一個終端窗口,輸入: sudo易於得到更新 sudo易於得到升級 命令和apt-get安裝FPC 命令和apt-get安裝拉撒路 我已經嘗試安裝適用於Linux ARM的FPC,但安裝程序無法正常工作。

    3熱度

    1回答

    我正在使用TIdTcpServer組件來實現基本的服務器端應用程序。我有客戶發送字符串到服務器,ascii編碼,結束在這些字符#@。 如: this_is_a_sample#@ thisis_another_sample#@ 我OnExecute方法如下: procedure TLX8511.ProcessEvent(AContext: TIdContext); var recv :