小编Art*_*hur的帖子

在delphi中从文件快速读/写

我正在以二进制形式将文件加载到一个数组中,这似乎需要一段时间才有更好更快更有效的方法来执行此操作.我正在使用类似的方法写回文件.

procedure openfile(fname:string);
var
    myfile: file;
    filesizevalue,i:integer;
begin
  assignfile(myfile,fname);
  filesizevalue:=GetFileSize(fname); //my method
  SetLength(dataarray, filesizevalue);
  i:=0;
  Reset(myFile, 1);
  while not Eof(myFile) do
    begin
      BlockRead(myfile,dataarray[i], 1);
      i:=i+1;
    end;
  CloseFile(myfile);
end;
Run Code Online (Sandbox Code Playgroud)

delphi binary file

8
推荐指数
3
解决办法
3万
查看次数

如何通过打开具有自定义文件扩展名的文件来查找触发的文件路径?

如何获取用于打开程序的文件的位置?

示例:如果我创建一个新的扩展".xyz"说,我告诉Windows我想用myapplication打开文件类型.xyz,然后它启动我的应用程序.很好,但我的应用程序如何处理用于启动它的文件的文件路径?

此外,有没有办法只保留我的应用程序的一个版本运行和打开的新文件只是调用我的应用程序中的方法?例如,如果您使用torrent并打开5个.torrent文件,他们只会传递给一个应用程序.

附带问题:所有文件扩展名都是3个字母长,是否有一个公开使用的列表?如果我正在创建文件扩展名,我不想使用已经使用过的文件扩展名.

delphi file-extension message-passing file-association

7
推荐指数
1
解决办法
1662
查看次数

如何在chrome中强制缓存

我如何强制缓存页面,脚本,图像(资源),包括动态生成的内容(php,asp等)的结果,我没有对相关网站的控制,我理解如果我缓存一个动态页面它变得静止,那对我来说很好,

但是...我不想缓存所有内容..页面加载default.asp ,,,以及.js脚本的音调,反过来调用API返回一些XML ,,

我想缓存default.asp和所有.js而不是xml文件.

即时通讯使用chrome和chrome正在积极地缓存它可以,但这个站点的所有东西都有一个max-age = 0标题.

所以从chrome我怎么能覆盖单个资源的标题?

caching google-chrome header

7
推荐指数
0
解决办法
1328
查看次数

误解MixColumns步骤

我在理解这里描述的MixColumns步骤时遇到了问题.

我知道扩散,这一切都有意义,它指出每个列被视为多项式并在GF(2 ^ 8)上乘以模数.

但是......在GF(2 ^ 8)中乘法.虽然域仍然是相同的,但由于mod ......它是不可逆的,并且它必须是可逆的,因为这是它的全部要点.

就第一位而言,我的方法是将A,B,C和D作为列的4个字节,A1,A2,...,A8作为位,E,F,G和H作为输出字节.我准备好了

E = A1,B2,C3,D4,A5,B6,C7,D8
F = D1,A2,B3,C4,D5,A6,B7,C8
G = C1,D2,A3,B4,C5,D6,A7,B8
H = B1,C2,D3,A4,B5,C6,D7,A8
Run Code Online (Sandbox Code Playgroud)

因此它是可逆的,一对一,线性和分配

它后来表明它可以被视为矩阵乘法,但由于矩阵的元素必须是字节并输出为字节,因此矩阵的每个元素必须是模256,因此不可逆和非线性.

我明白这个错了吗?我努力学习数学,并试图了解需要做什么,以便我可以将其转换为逻辑.

math logic aes

5
推荐指数
1
解决办法
6793
查看次数

PHP中的变量持久化

我有一个 php 页面,在那个页面上我有文本框和一个提交按钮,这个按钮在一个部分运行 php:

if(isset($_POST['Add'])){code}

这在这里工作正常,在该部分 $name,$base,$location 等被计算和使用。但那段代码会生成另一个提交按钮,驱动另一段代码。

在代码的第二部分中,我希望将数据添加到数据库中。现在我已经知道如何做到这一点,问题是变量 $name 等此时的值为 NULL .. 但它们只能在第一个代码部分运行后调用它们获得值。

我如何保持这些值直到我添加它们?

资源:
该页面可以随意尝试:location mustbe 的形式为“DNN:NN:NN:NN”,其中 D 是“D”,N 是 0-9 整数
http://www.teamdelta.byethost12.com /postroute.php

将php文件的代码作为文本文件!
http://www.teamdelta.byethost12.com/postroute.php
第 116 和 149 行是 2 个按钮运行部分的开始!

php variables persistence

4
推荐指数
1
解决办法
7809
查看次数

TImage的透明度

创建新的TImage时,它是透明的.在将对象绘制到此图像后,我想清除它们.请注意,我需要保持图像透明,因为TImage被用作另一个图像的叠加层.

TImage的某种"清晰"功能是最好的.我想我在这里缺少一些简单的东西,我在TImage菜单中找不到任何明确的功能.

delphi timage

3
推荐指数
1
解决办法
1257
查看次数

是否可以在delphi中加载动态类

我有一个环境,我想知道,如果我在这个环境中编写代码,是否可以保存>编译并使用该代码?

更重要的是我希望环境能够在此代码中调用函数并使代码能够在环境中调用函数.

我认为在java中有一些叫做类加载器的东西允许你这样做.我能做到这一点是Delphi,这样做的最佳方法是什么?

(以防万一有人说要把它放在那里开始为孩子们玩游戏,他们只会写一段处理简单逻辑和变量的代码,并调用移动虚拟环境中的方法机器人)

delphi compilation class

3
推荐指数
1
解决办法
509
查看次数

如何在Delphi中使用Unit文件

我只是试图让单独的单元挂起来使我的代码更加封装.我正在尝试将我的方法的公共/私有声明整理出来,所以我可以从其他使用的单元中调用它们testunit.在这个例子中,我想hellofromotherunit公开,但stickletters私人.

unit testunit;    

interface

uses
  Windows, Messages, Dialogs;    

implementation

function stickletters(a,b:string):string;
begin
  result:=a+b;
end;

procedure hellofromotherunit();
begin
 showmessage(stickletters('h','i'));
end;

end.
Run Code Online (Sandbox Code Playgroud)

我似乎无法从其他单位复制私人/公共结构,如:

Type
private
function stickletters(a,b:inter):integer;
public
procedure hellofromotherunit();
end
Run Code Online (Sandbox Code Playgroud)

delphi pascal private public delphi-units

2
推荐指数
2
解决办法
6645
查看次数

在Delphi中定义其他单元的类型

Var
     A : Array [1..4] of Integer;
     B : Array [1..4] of Integer;

Begin
    A := B;
Run Code Online (Sandbox Code Playgroud)

不会起作用,因为loren-pechtel 在这里说 问题是A和B对我来说是不同的单位.那么,有没有办法从另一个类中的现有类型定义类型定义?

delphi parameters types definition delphi-units

2
推荐指数
2
解决办法
2858
查看次数

Delphi:如何使用驱动器号以编程方式弹出CD

我试过这段代码:

uses MMSystem;

mciSendString('Set cdaudio door open wait', nil, 0, handle);

mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Run Code Online (Sandbox Code Playgroud)

但是没有效果.我听说这不适用于所有系统.

我正试图让驱动器在Windows XP上弹出,并希望通过驱动器号指定驱动器(对于具有多个驱动器的系统是必需的).

windows delphi

2
推荐指数
1
解决办法
3010
查看次数