我的应用程序需要免费的云服务
我一直在开发一个应用程序,现在已经完成,但它需要一个服务器 24/7 全天候运行.服务器有一个 PHP 文件,用于从应用程序接收和上传文件.任何简单的 HTTP 服务器都应该可以工作(不是 HTTPS).我尝试了几个虚拟主机,但它们都内置了某种我无法删除的“机器人检测器",有些使用了 Javascript.我真的需要你的帮助,请告诉我一个至少有 50MB 空间并支持 PHP 的网络主机. 解决方案 任何 PHP 网络托管公司都应该给你“50MB 空间",但要找到一个 24/7 可用的免费空间比较棘手——除非(或即使)您为服务付费,否则它们中的大多数都不能保证正常运行时间,这是可以理解的.我过去曾尝试过一些“免费"服务,但除了“学习绳索"之外,它们几乎毫无用处. 如果您想要可靠的服务,您可能需要付费. 禁用“bot-detectors"的要求会让我担心:如果有可能被检测为可疑活动,你打算怎么做? 如果有人提供 24\7 的云网络服务免费提供,那么他们将如何赚钱?谁会为网络
126 2022-07-19
编程技术问答社区
如何使我的服务应用程序在启动时以管理员身份运行
我有一个在后台运行的应用程序,所以我将它作为一个服务应用程序.但问题是我的应用程序需要管理权限. 而且我正在将此应用程序设置为“必须始终运行"(它适用于我学校计算机中的计算机,这些计算机是供学生使用的,如果它没有运行,学生将可以自由地做他们想做的任何事情想).所以现在您知道为什么我希望我的服务应用程序以管理员身份运行.好的,进入正题: 如果我只是告诉 Windows 在清单中以管理员身份运行它,它将显示一个弹出窗口,询问是否运行它.有些学生可能会点击“否",这就是问题所在,我不希望显示该弹出窗口.对于那些说不可能的人,我的计算机中安装了一个应用程序,它甚至不显示弹出窗口(它在启动时运行,或者可能在此之前运行),我确信该应用程序正在以管理员身份运行.如果你错过了我的问题: 如何让我的服务应用程序在启动时以管理员身份启动? 我将不胜感激. 解决方案 您的问题令人困惑.你说你写了一个服务应用程序.服务应用程序无需任何人登录机器即可启动.它们在 Windows 启动时启动,而不是
124 2022-07-19
编程技术问答社区
设a和b是两个长度相同的整数数组。我们说他们是��换档当量�� 如果阵列a可以右移以创建阵列b。
布尔等效项(int s[]、int n[]、int c){ for (int p=0 ; pfor (int i=0; i如果 (s[i]==n[i+p%c]) 返回真; } } 返回错误; } #include 使用命名空间标准; int main (){ int A [5]; 诠释 B[5]; for (int i=0; icout 其他{ cout} 返回0; } 我尝试过的: 好的,每次我放置不同的数组集时,它都会通过 if 语句运行一次.我的意思是,一旦 if 语句为真,它就会返回真.但是,我希望 if 语句运行 n 次,然后返回 true 或 false. 解决方案 Quote:我希望 if 语句运行 n 次,然后返回 true 或 false. 就像您对用户输入所做的那样使用“for"循环. 我不知道你想做什么,但是在这行代码中, if (s[i]==n[i+p%c])
110 2022-07-19
编程技术问答社区
Delphi 7-在windows 7和xp之间调整字体大小
你好, 我想知道是否有人可以帮助我.我有一个 delphi 7 应用程序,当加载到 XP 机器上时,一切都是相称的,一般看起来都很好,但是当我将它安装在 windows 7 pc 上时,标签上的字体更大,因此会重叠到文本框、运行按钮等. 所有其他文本框,按钮大小保持不变,只是字体变大了. 有没有机会快速解决这个问题? 解决方案 阅读这些可以帮助你: 如何让我的 GUI 在 Windows 字体缩放大于 100% 时表现良好[^] 如何处理 Windows 7 的 125% 或 150% 放大率 (Delphi)[^]
100 2022-07-19
编程技术问答社区
delphi中的列名无效
我的代码有问题,不知道如何解决. 我尝试过的: ADODataSet1.Close; if ListFiltr1.ItemIndex = 0 then ADODataSet1.CommandText := 'select [EmployeeID],LastName,FirstName,Title,City from Employees where ' + ListeChampTxt.Items[ListeChampTxt.ItemIndex] +'= "' + TxtCherche.text + '" order by ' + ListTrie.Items[ListTrie.ItemIndex] + TxtTrie; ADODataSet1.Active := True; ADODataSet1.Requery(); end; 解决方案 从不这样做开始!切勿连接字符串来构建 SQL 命令.它让您对意外或蓄意的 S
80 2022-07-19
编程技术问答社区
delphi应用程序的本地化
嗨 我还是这个行业的新手.我刚毕业. 我想了解应用程序本地化.从我工作的地方,他们创建了一个应用程序,该应用程序具有每种语言的形式,基于每种语言字符的高度和长度不同,从我的角度来看,这是不现实的. 所以我需要找到一种方法来做到这一点. 请帮忙. 解决方案 Delphi 有自己的集成翻译环境 (ITE).但这通常不是一个好的选择——它受到限制且不方便. 我们使用Korzh's Localizer 工具.强项(就我而言)是: - 允许即时翻译 - 不需要在您的表单上放置任何控件 - 无需额外移动即可翻译资源字符串 - 允许最终用户创建/修改翻译 - 支持使用 Google API 自动翻译 希望我的回答有用. 在Delphi 和其他语言中有多种本地化方法.创建多个表单就是其中之一. 但是,通常情况下,使用最多的是两种方法: 1. 本地化xmls 2.本地化组件 作为一个有用的组件,你可以使用: http://www.t
224 2022-07-19
编程技术问答社区
消费来自Delphi的Net Web服务
大家好.我正在使用 Delphi 的 Soap 实现来使用 .Net 编写的 Web 服务. 有什么方法可以强制 Delphi(或 wininet)发送 expect-100 标头,等待并根据服务器的响应继续.如果没有 expect-100-continue 序列,服务会使用 ''服务不可用''. 据我所知,这个序列是强制性的,或者至少存在于 HTTP 1.1 中,但我找不到任何字段方法等来实现这一点.我正在使用 Delphi XE2.(手动添加标题不能按预期工作.)任何 解决方案 参考这篇文章 http://www.drbob42.com/examines/examin45.htm[^]
186 2022-07-19
编程技术问答社区
Delphi7中PChar的UNICODE等价物
TCALLBACKPROC = function(strDataType:PChar; strDocument:PChar;strDriverName:PChar;strMachineName:PChar;strPrintername:PChar;strParameters:PChar;strPrintProcessor:PChar;JobId:Integer;PagesPrinted:Integer;大小:整数;状态:整数;总页数:整数;尺寸高:LongInt;dmColor:ShortInt;dmPaperLength:ShortInt;dmPaperSize:ShortInt;dmPaperWidth:ShortInt):HRESULT 标准调用; 任何人都可以告诉我delphi中PChar的unicode等价物吗?我正在尝试在来自 unicode DLL 的消息框中显示 اردو ویکیپیڈیا; 谢谢 解决方案 显然,PWideChar. 请从这里开始:htt
212 2022-07-19
编程技术问答社区
在delphi中将值从表1传递到表2
我想将 form1 中分配给变量 userid、name 和 privilege 的值传递给 form2 .我怎么做?请帮忙 procedure TForm1.Button1Click(Sender: TObject);var名称、密码、权限:string;UserId: 整数;开始IBQuery1.SQL.clear;IBQuery1.SQL.add('Select * from USER_ACCESS where USERID = '+ edit1.Text+'') ;IBQuery1.Active := true;UserId := IBQuery1.FieldByname('USERID').AsInteger;密码:= IBQuery1.Fieldbyname('PASWORD').AsString;name := IBQuery1.fieldbyname('NAME').AsString;权限 := IBQuery1.fieldbyname('USERTYPE').As
230 2022-07-19
编程技术问答社区
当两个记录都存在时,函数返回的IsValid为false
以下代码的目的是查找并打开贷款记录和会员记录.由于我正在创建一个图书馆系统,其中用户没有带有条形码的卡,因此他们必须记住唯一 ID,所以我认为如果他们只需要记住一个数字,即他们所有的唯一 ID 会更容易相关记录.但是,下面的代码有一个错误,即当两条记录都存在时,函数将 IsValid 返回为 false.帮忙? procedure RecordCheck(var MemberID: integer);varIsValid: boolean;{ 检查记录是否存在的过程 }function ValidateID(Member_ID: integer): boolean;var错误:boolean;{ True/False-直到出现错误为止 }计数:整数;{ 对于每个字母和数字 }开始错误:=假;AssignFile(MemberDetailsFile, 'MemberDetails.dat');重置(成员详细信息文件);while not eof(MemberDetailsFile)
142 2022-07-19
编程技术问答社区
我可以在Iis中运行Exe文件吗
我可以在 iis 中运行 exe 文件吗?因为我有一个 web 应用程序 exe 文件,它会问你. 解决方案 这可以帮助你. http://social.technet.microsoft.com/Forums/en-US/d0c10cd8-4896-4738-8960-de352aad74a7/running-a-exe-file-in-iis?forum=winserversecurity[
266 2022-07-19
编程技术问答社区
3G调制解调器语音功能
大多数 3G 调制解调器(U 盘)都支持语音通话,但它们都只能通过随附的仪表板软件来实现. 你有什么信息,如何从 3G 调制解调器获取声音并将麦克风数据传递给 3G 调制解调器? 当我插入它时,它会安装 4 个 COM 端口: 尼玛 诊断 应用接口 标准COM口,可用于传递AT指令. 所以目前通过标准COM口我可以通过ATDT12345678命令拨打一个号码,连接建立,另一端正在振铃.当我接听电话时,在连接 3G 调制解调器的计算机上和被叫电话上都听不到任何声音. 任何答案或解决方法表示赞赏. 仅供参考:我正在使用 Delphi 进行开发 解决方案 您好, 我也在做同样的实现,我知道当我们通过 AT 命令通过 NEMA 端口发起呼叫时,它会呼叫目标号码.一旦呼叫被另一端应答,另一个端口(应用程序接口/语音端口)将开始发送二进制数据.我能够获得该二进制数据,但在查找数据格式时遇到问题,这意味着接收到的数据应该以 wav 或其他格式存储,我仍在处理这个..
120 2022-07-19
编程技术问答社区
提供下面提到的代码摘录的简明功能概述
提供下面提到的代码摘录的简明功能概述, 问题一 procedure f(var A : array of integer; L, R: Integer); var I, J: Integer; P, T: Integer; begin repeat I := L; J := R; P := A[(L + R) shr 1]; repeat while A[I] P do Dec(J); if I J; if L = R; end; Question 2 procedure f( var a : integer; var b : integer
112 2022-07-19
编程技术问答社区
如何在DELPHI中替换richedit中的关键字
好吧,我有一个两难选择,我的程序现在运行良好,我所要做的就是在我的丰富编辑中获取预先存在的信息,例如: NOMBRE: ######### APPELIDOS: ######### EMAIL: ######### TELEFONO DE ESTUDIANTE: ######### TELEFONO DE #########: ######### TELEFONO DE #########: ######### NIVEL DE LENGUAJE: ********* 现在我想做的是通过使用更新按钮和 Tcombobox 将“*********"替换为另一个字符串,但我对如何执行代码没有头或尾,请帮助我!!! 我尝试过的: 一切和谷歌都没有帮助我. 解决方案 插入 ReplaceDialog 组件. 添加新的 ReplaceText 事件(Object Explorer -> Events 书签) 粘贴以下代码(用于 RichEdit 组件):
268 2022-07-19
编程技术问答社区
如何在delphi中将值传递到一个表单到另一个表单?
我有一页包含复选框,我需要在其他页面上获取复选框的值. 如何将值传递到一到第二页? 我尝试过的: 没什么特别的 google 搜索 解决方案 你可以访问它. 在 uses 的 Unit2(第 1 页)中提及您的 Unit1(其他形式)如果您已经在 unit1 使用中添加了 unit2,则必须在 unit2 的 实现使用部分中添加 unit1. 然后你就可以调用这些项目了. 示例(来自实施部分): implementation { R *.dfm} uses Unit1; procedure TForm2.Button1Click(Sender: TObject); begin if Form1.CheckBox1.Checked then Label1.Caption := 'Checked' else Label1.Caption := 'Unchecked' end; end.
70 2022-07-19
编程技术问答社区
delphi中的Ado查询过滤问题
您好,当我在列内搜索数字时,此代码可以正常工作 当我在列中搜索名称和不同列中的日期时,我想要相同的代码认为 procedure TForm1.sEdit1Change(Sender: TObject); var a :integer; begin IF sEdit1.Text '' then begin a:=strtoint(sEdit1.Text); adoquery1.active:=false; adoquery1.sql.clear; ADOQuery1.SQL.Add('select * from employé where num_emp='+inttostr(a)); adoquery1.open; end else begin adoquery1.active:=false; adoquery1.sql.clear; ADOQuery1.SQL.Add('select * from employé'); adoquer
148 2022-07-19
编程技术问答社区
当许可用户是标准用户时,如何获取硬盘windows 7的序列号
i want protect of my application .so i read serial number hard drive and compare. the application has good result in mode administrator user but it has bad result in mode standard user. i wrote my application with c#.but for read serial number hard i used of a dll file that i wrote with delphi. hDevice := CreateFile( ''\\.\PhysicalDrive0:'', GENERIC_READ or GENERIC_WRITE , FILE_SHARE_READ or FILE_SHARE_WRITE , nil, OPEN_EXISTING
214 2022-07-19
编程技术问答社区
Delphi内存不足
你好, 当我在 1 天后开始我的程序时,出现内存不足错误 我该如何解决这个问题? 有没有清除内存的代码? 我有一个想法,就是每天早上开始清除内存代码,这可能吗? 我尝试过的: 扫描代码并尝试查找泄漏部分 解决方案 避免内存泄漏是软件开发人员的主要职责之一.正如 Sergey 正确指出的那样,您的代码应该正确处理内存分配/释放. 因此,这里正确的方法是修改代码以使其执行必要的释放. 在 Delphi 中防止内存泄漏非常容易,比大多数其他系统(那些没有垃圾的系统)容易得多收藏,当然).有些产品可以为您完成所有检测,无需您的任何帮助.只需一个电话即可激活它们. 我曾经使用过 MemChk,它运行良好:MemCheck 主页[^]. 目前我使用 Free Pascal,强烈推荐它,即使你使用 Delphi;Free Pascal 是深度跨平台的,具有非常有趣的 UI 抽象层,它可以帮助您同时为很多平台开发 UI.只需检查项目选项之一,它
216 2022-07-19
编程技术问答社区
我该如何实施关键点强化(而不是关键点拉伸)——忘记随机盐
你好,有人有一些演示代码,最好是 C# 或 Delphi/Pascal 中的,关于我如何实现键加强而不是键拉伸,就像维基百科上解释的那样. 我的想法是使用随机或加密随机函数来生成 x 字节数 (SALT). 但是,我是否不必处理/散列 SALT 并留下一些关于正确答案的提示.因为如果我不知道正确答案是什么,我将如何暴力破解正确的随机字节/SALT? 以及我如何以这样一种方式制作线索,即我是随机字节/SALT 的原始创建者,比让我们说一个竞争方也试图暴力破解随机字节/SALT. 另外,我如何确定 x 字节的大小必须始终固定?看到字节数越大,暴力重建它们所需的时间就越长. 这是我的假设想法,不需要任何加密. 欢迎任何回复. 解决方案 它不会加强它. 随机盐的原因是为了防止创建彩虹表.如果你使用派生的盐,你会削弱加密. 例如,它会将 GetSalt("Foo") 的结果呈现为 "Bar".但它永远是“酒吧"!它没有任何随机性.因此,由于彩虹表之间
150 2022-07-19
编程技术问答社区
工具操作捕捉到gridview操作
你好, 我在delphi(7和2010)中有一个带有win32 treeview控件的程序.如何向我的节点添加操作? 例如: 当我在树视图中选择节点时,我想播放 mp3 文件. 或 就像windows explorer一样,如果点击左盘中的文件,它会在右盘中显示动作. 谢谢 解决方案 如果点击是真的在图标上,您应该检查 OnClick 事件.下面是一个例子. 过程 TForm1.TreeView1Click(Sender: TObject);变量P:T点;开始获取光标位置(P);P := TreeView1.ScreenToClient(P);if (htOnStateIcon inTreeView1.GetHitTestInfoAt(P.X,P.Y)) thenToggleTreeViewCheckBoxes(TreeView1.Selected,cFlatUnCheck,cFlatChecked,cFlatRadioUnCheck,cFlatRadioC
228 2022-07-19
编程技术问答社区