Перейти к содержанию
Fire Monkey от А до Я
  • 0

FD connect как заменить абсолютный на относительный путь


mari rohan

Вопрос

Добрый день! Пытаюсь  FD connect как заменить абсолютный, на относительный путь при помощи Extractfilepath(paramstr(0)) но когда заменяю вот что начинает рассказывать компилятор:

[5016A19F]{rtl260.bpl  } System.Classes.TParser.ErrorStr (Line 13579, "System.Classes.pas" + 6) + $7
[5016A0E8]{rtl260.bpl  } System.Classes.TParser.ErrorFmt (Line 13566, "System.Classes.pas" + 0) + $4
[5016A007]{rtl260.bpl  } System.Classes.TParser.CheckToken (Line 13548, "System.Classes.pas" + 8) + $5
[5016D68E]{rtl260.bpl  } System.Classes.CombineString (Line 14435, "System.Classes.pas" + 7) + $7
[5016D714]{rtl260.bpl  } System.Classes.ConvertValue (Line 14441, "System.Classes.pas" + 2) + $10
[5016DA68]{rtl260.bpl  } System.Classes.ConvertValue (Line 14484, "System.Classes.pas" + 45) + $10
[5016DD43]{rtl260.bpl  } System.Classes.ConvertProperty (Line 14531, "System.Classes.pas" + 15) + $6
[5016DDE9]{rtl260.bpl  } System.Classes.ConvertObject (Line 14548, "System.Classes.pas" + 11) + $6
[5016DE42]{rtl260.bpl  } System.Classes.ConvertObject (Line 14554, "System.Classes.pas" + 17) + $10
[5016DF87]{rtl260.bpl  } System.Classes.ObjectTextToBinary (Line 14569, "System.Classes.pas" + 11) + $D
[5016E077]{rtl260.bpl  } System.Classes.ObjectTextToResource (Line 14618, "System.Classes.pas" + 4) + $7
[5016D36A]{rtl260.bpl  } System.Classes.InternalTextToBinary (Line 14351, "System.Classes.pas" + 25) + $7
[5016E0D8]{rtl260.bpl  } System.Classes.TestStreamFormat (Line 14636, "System.Classes.pas" + 0) + $0
[207C813F]{coreide260.bpl} EditorBuffer.TEditBuffer.OpenEditorStream (Line 3474, "EditorBuffer.pas" + 10) + $3
[205C4DE5]{coreide260.bpl} ComInOut.OpenEditor (Line 408, "ComInOut.pas" + 28) + $B
[205C53F7]{coreide260.bpl} ComInOut.CFileOpen (Line 558, "ComInOut.pas" + 23) + $F
[205C5608]{coreide260.bpl} ComInOut.CCFileOpen (Line 616, "ComInOut.pas" + 2) + $18
[205C5682]{coreide260.bpl} ComInOut.BFileOpenWithBOM (Line 632, "ComInOut.pas" + 4) + $7
[50096F99]{rtl260.bpl  } System.SysUtils.StrLCopy (Line 11692, "System.SysUtils.pas" + 5) + $8
[50CC158B]{vcl260.bpl  } Vcl.Graphics.TCanvas.RequiredState (Line 4224, "Vcl.Graphics.pas" + 12) + $7
[50CE4FAA]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7387, "Vcl.Controls.pas" + 91) + $6
[50DD5A6B]{vcl260.bpl  } Vcl.Themes.TUxThemeStyle.DoDrawText (Line 2917, "Vcl.Themes.pas" + 2) + $28
[50DD51D5]{vcl260.bpl  } Vcl.Themes.TCustomStyleServices.DrawText (Line 2628, "Vcl.Themes.pas" + 1) + $19
[50CC158B]{vcl260.bpl  } Vcl.Graphics.TCanvas.RequiredState (Line 4224, "Vcl.Graphics.pas" + 12) + $7
[50D053F8]{vcl260.bpl  } Vcl.StdCtrls.TCustomLabel.DoDrawThemeTextEx (Line 2215, "Vcl.StdCtrls.pas" + 9) + $3F
[50CC158B]{vcl260.bpl  } Vcl.Graphics.TCanvas.RequiredState (Line 4224, "Vcl.Graphics.pas" + 12) + $7
[50CE9CBA]{vcl260.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10286, "Vcl.Controls.pas" + 30) + $19
[50E370E6]{vcl260.bpl  } Vcl.Forms.TCustomForm.DefaultHandler (Line 5923, "Vcl.Forms.pas" + 11) + $4
[50CE4FAA]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7387, "Vcl.Controls.pas" + 91) + $6
[11CB88F7]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
[50E3E6C8]{vcl260.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10703, "Vcl.Forms.pas" + 2) + $9
[50E3E7D2]{vcl260.bpl  } Vcl.Forms.TApplication.ProcessMessages (Line 10746, "Vcl.Forms.pas" + 1) + $4
[2234677B]{delphide260.bpl} DelphiProject.TDelphiCodeIWin32Project._Release (Line 391, "DelphiProject.pas" + 1) + $1
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[20534C14]{coreide260.bpl} ComPrgrs.TProgressForm.DoUpdate (Line 429, "ComPrgrs.pas" + 19) + $51
[205357BE]{coreide260.bpl} ComPrgrs.TProgressMonitor.MainThreadUpdate (Line 709, "ComPrgrs.pas" + 6) + $1
[50170E0C]{rtl260.bpl  } System.Classes.TThread.Synchronize (Line 15623, "System.Classes.pas" + 5) + $4
[500640D8]{rtl260.bpl  } System.@FinalizeArray (Line 32811, "System.pas" + 144) + $0
[50063F98]{rtl260.bpl  } System.@FinalizeRecord (Line 32509, "System.pas" + 41) + $0
[50171054]{rtl260.bpl  } System.Classes.TThread.Synchronize (Line 15679, "System.Classes.pas" + 6) + $22
[2234677B]{delphide260.bpl} DelphiProject.TDelphiCodeIWin32Project._Release (Line 391, "DelphiProject.pas" + 1) + $1
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[20534127]{coreide260.bpl} ComPrgrs.CompilerUpdateProgress (Line 207, "ComPrgrs.pas" + 34) + $63
[205C69E5]{coreide260.bpl} ComInOut.Progress (Line 1284, "ComInOut.pas" + 5) + $B
[205C6A00]{coreide260.bpl} ComInOut.Progress (Line 1287, "ComInOut.pas" + 8) + $8
[205C6A1E]{coreide260.bpl} ComInOut.Progress (Line 1289, "ComInOut.pas" + 10) + $14
[205C6B8F]{coreide260.bpl} ComInOut.UIBProgress (Line 1340, "ComInOut.pas" + 32) + $E
[205C6CC8]{coreide260.bpl} ComInOut.BProgress (Line 1385, "ComInOut.pas" + 35) + $F
[205C6CD3]{coreide260.bpl} ComInOut.BProgress (Line 1386, "ComInOut.pas" + 36) + $8
[21D08688]{delphicoreide260.bpl} BasePasComIntf.TCompiler.CompilerCompile (Line 715, "BasePasComIntf.pas" + 6) + $39
[21C7AF5E]{delphicoreide260.bpl} PasNativeCompilerAdapter.TCompilerAdapter.CompileCmdLine (Line 161, "PasNativeCompilerAdapter.pas" + 1) + $8
[21C7B37D]{delphicoreide260.bpl} PasNativeCompilerAdapter.TCompilerAdapter.CompilerCompile (Line 403, "PasNativeCompilerAdapter.pas" + 1) + $5
[21C7EE07]{delphicoreide260.bpl} CommonOptions.TDelphiMsBuildHost.DccCompile (Line 375, "CommonOptions.pas" + 18) + $3D
[20A347A8]{coreide260.bpl} MSBuildInterop.TMSBuildProjectInterop.Build (Line 121, "MSBuildInterop.pas" + 6) + $37
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[20543641]{coreide260.bpl} MSBProjectWrapper.TNativeMSBuildProject.Build (Line 281, "MSBProjectWrapper.pas" + 7) + $1C
[2065ACC1]{coreide260.bpl} ProjectModule.TCustomCodeIProject.GetMSProjectFile (Line 2480, "ProjectModule.pas" + 1) + $F
[21D07623]{delphicoreide260.bpl} BasePasComIntf.TCompiler.DoCompile (Line 397, "BasePasComIntf.pas" + 47) + $38
[21D08356]{delphicoreide260.bpl} BasePasComIntf.TCompiler.Compile (Line 648, "BasePasComIntf.pas" + 15) + $8
[21C7AEBF]{delphicoreide260.bpl} PasNativeCompilerAdapter.TCompilerAdapter.Compile (Line 153, "PasNativeCompilerAdapter.pas" + 15) + $C
[21CAB260]{delphicoreide260.bpl} PasMgr.TPascalProjectUpdater.DoCompile (Line 10694, "PasMgr.pas" + 12) + $D
[21CAF951]{delphicoreide260.bpl} PasMgr.TPascalProjectUpdater.CompileProject (Line 12039, "PasMgr.pas" + 4) + $A
[20554752]{coreide260.bpl} ProjectGroupBuilder.TProjectGroupBuilder.MakeThingsHappen (Line 321, "ProjectGroupBuilder.pas" + 121) + $22
[500FA1ED]{rtl260.bpl  } System.Rtti.RawInvoke (Line 7827, "System.Rtti.pas" + 47) + $1
[500FA5EF]{rtl260.bpl  } System.Rtti.Invoke (Line 8048, "System.Rtti.pas" + 79) + $A
[500F1148]{rtl260.bpl  } System.Rtti.TRttiInstanceMethodEx.DispatchInvoke (Line 5947, "System.Rtti.pas" + 101) + $24
[500FAAB4]{rtl260.bpl  } System.Rtti.TRttiMethod.Invoke (Line 9634, "System.Rtti.pas" + 2) + $1
[004D50D0]{bds.exe     } SanctuaryChecker.TLicenseManager.TryAction (Line 1742, "SanctuaryChecker.pas" + 14) + $14
[205542F7]{coreide260.bpl} ProjectGroupBuilder.TProjectGroupBuilder.DoBuild (Line 187, "ProjectGroupBuilder.pas" + 3) + $1
[205471CC]{coreide260.bpl} BuildHost.TBuildHost.Perform (Line 371, "BuildHost.pas" + 21) + $1
[205341E2]{coreide260.bpl} ComPrgrs.TProgressForm.StartCompile (Line 232, "ComPrgrs.pas" + 8) + $10
[20534FC2]{coreide260.bpl} ComPrgrs.TProgressForm.HandleCompileMessage (Line 498, "ComPrgrs.pas" + 0) + $6
[50CE4FAA]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7387, "Vcl.Controls.pas" + 91) + $6
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[500640D8]{rtl260.bpl  } System.@FinalizeArray (Line 32811, "System.pas" + 144) + $0
[11CF1AB2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
[50CE9620]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10089, "Vcl.Controls.pas" + 10) + $48
[50CE9BAB]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10245, "Vcl.Controls.pas" + 166) + $6
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[5005FE07]{rtl260.bpl  } System.TObject.Dispatch (Line 18332, "System.pas" + 11) + $0
[11CB8E3E]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[11CB88F7]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[500640D8]{rtl260.bpl  } System.@FinalizeArray (Line 32811, "System.pas" + 144) + $0
[11CF1AB2]{themeloader260.bpl} Idetheme.Stylemanager.TIDEThemeStyleEngine.UnRegisterSysStyleHook + $106
[50CE9620]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10089, "Vcl.Controls.pas" + 10) + $48
[50CE9BAB]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10245, "Vcl.Controls.pas" + 166) + $6
[50E34DB9]{vcl260.bpl  } Vcl.Forms.TCustomForm.WndProc (Line 4629, "Vcl.Forms.pas" + 209) + $5
[50CE9178]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9944, "Vcl.Controls.pas" + 3) + $6
[50174370]{rtl260.bpl  } System.Classes.CalcJmpOffset (Line 17554, "System.Classes.pas" + 0) + $0
[50E3E7A7]{vcl260.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10724, "Vcl.Forms.pas" + 23) + $1
[50E3E7EA]{vcl260.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10754, "Vcl.Forms.pas" + 1) + $4
[50E39B8A]{vcl260.bpl  } Vcl.Forms.TCustomForm.ShowModal (Line 7456, "Vcl.Forms.pas" + 33) + $5
[20546C1A]{coreide260.bpl} BuildHost.TBuildHost.Build (Line 231, "BuildHost.pas" + 55) + $D
[205467C7]{coreide260.bpl} BuildHost.Build (Line 136, "BuildHost.pas" + 4) + $F
[20554107]{coreide260.bpl} ProjectGroupBuilder.BuildProjects (Line 146, "ProjectGroupBuilder.pas" + 1) + $1C
[20592F8B]{coreide260.bpl} ProjectGroup.TProjectGroup.CompileProjects (Line 805, "ProjectGroup.pas" + 1) + $27
[20592CA2]{coreide260.bpl} ProjectGroup.TProjectGroup.CompileActive (Line 754, "ProjectGroup.pas" + 20) + $17
[20599E29]{coreide260.bpl} ProjectGroup.TProjectGroupWrapper.CompileActive (Line 2865, "ProjectGroup.pas" + 0) + $9
[004AEAF2]{bds.exe     } AppMain.TAppBuilder.Compile (Line 3613, "AppMain.pas" + 2) + $1
[004A8B81]{bds.exe     } AppMain.TBorlandIDE.Compile (Line 1171, "AppMain.pas" + 2) + $6
[2086504A]{coreide260.bpl} DebuggerMgr.TDebuggerMgr.MakeCurrentProject (Line 1523, "DebuggerMgr.pas" + 111) + $2
[208667E9]{coreide260.bpl} DebuggerMgr.TDebuggerMgr.Run (Line 2048, "DebuggerMgr.pas" + 2) + $A
[20866872]{coreide260.bpl} DebuggerMgr.TDebuggerMgr.RunNoDebug (Line 2076, "DebuggerMgr.pas" + 4) + $B
[004B7D63]{bds.exe     } AppMain.TAppBuilder.RunRunNoDebugCommandExecute (Line 6778, "AppMain.pas" + 0) + $B
[5017361B]{rtl260.bpl  } System.Classes.TBasicAction.Execute (Line 17028, "System.Classes.pas" + 7) + $3
[50CCDE62]{vcl260.bpl  } Vcl.ActnList.TCustomAction.Execute (Line 261, "Vcl.ActnList.pas" + 19) + $35
[50173483]{rtl260.bpl  } System.Classes.TBasicActionLink.SetAction (Line 16939, "System.Classes.pas" + 0) + $3
[50CE54EC]{vcl260.bpl  } Vcl.Controls.TControl.Click (Line 7501, "Vcl.Controls.pas" + 7) + $7
[50D644BC]{vcl260.bpl  } Vcl.ComCtrls.TToolButton.Click (Line 21635, "Vcl.ComCtrls.pas" + 0) + $0
[50CE59B7]{vcl260.bpl  } Vcl.Controls.TControl.WMLButtonUp (Line 7642, "Vcl.Controls.pas" + 7) + $6
[50CE4FAA]{vcl260.bpl  } Vcl.Controls.TControl.WndProc (Line 7387, "Vcl.Controls.pas" + 91) + $6
[5005FE07]{rtl260.bpl  } System.TObject.Dispatch (Line 18332, "System.pas" + 11) + $0
[11CB8E3E]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.WndProc + $7A
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[11CB88F7]{themeloader260.bpl} Idetheme.Vclstylehooks.TIDEStyleHook.HandleMessage + $B7
[50067E88]{rtl260.bpl  } System.@IntfClear (Line 38150, "System.pas" + 10) + $0
[500640D8]{rtl260.bpl  } System.@FinalizeArray (Line 32811, "System.pas" + 144) + $0
[50CE4BE4]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7165, "Vcl.Controls.pas" + 10) + $8
[50CE926E]{vcl260.bpl  } Vcl.Controls.GetControlAtPos (Line 9967, "Vcl.Controls.pas" + 4) + $75
[50CE9336]{vcl260.bpl  } Vcl.Controls.TWinControl.ControlAtPos (Line 9990, "Vcl.Controls.pas" + 13) + $E
[50CE4BE4]{vcl260.bpl  } Vcl.Controls.TControl.Perform (Line 7165, "Vcl.Controls.pas" + 10) + $8
[50CE9404]{vcl260.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 10014, "Vcl.Controls.pas" + 15) + $29
[50CE9A0C]{vcl260.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10191, "Vcl.Controls.pas" + 112) + $6
[50D665E9]{vcl260.bpl  } Vcl.ComCtrls.TToolBar.UpdateButtonState (Line 22913, "Vcl.ComCtrls.pas" + 11) + $27
[50D6662A]{vcl260.bpl  } Vcl.ComCtrls.TToolBar.UpdateButtonStates (Line 22924, "Vcl.ComCtrls.pas" + 3) + $4
[50D69060]{vcl260.bpl  } Vcl.ComCtrls.TToolBar.WndProc (Line 24514, "Vcl.ComCtrls.pas" + 104) + $6
[50CE9178]{vcl260.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9944, "Vcl.Controls.pas" + 3) + $6
[50174370]{rtl260.bpl  } System.Classes.CalcJmpOffset (Line 17554, "System.Classes.pas" + 0) + $0
[50E3E7A7]{vcl260.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10724, "Vcl.Forms.pas" + 23) + $1
[50E3E7EA]{vcl260.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10754, "Vcl.Forms.pas" + 1) + $4
[50E3EB1D]{vcl260.bpl  } Vcl.Forms.TApplication.Run (Line 10892, "Vcl.Forms.pas" + 26) + $3
[00517FFA]{bds.exe     } bds.bds (Line 214, "" + 7) + $7


 

1.jpg

Изменено пользователем mari rohan
Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...