小编Tre*_*tBG的帖子

我认为标题很清楚.我想知道如何使用参数/参数发送HTTP POST请求并接收HTML响应 - 使用Delphi的Synapse库.

我想模拟外部程序的键盘单击。我尝试了SendMessage，PostMessage，SendKeys，但它们没有将键发送到一个特定程序。因此，我想尝试使用SendInput，并为SendInput下载了一个很好的包装器-http : //inputsimulator.codeplex.com/

我已经将程序集添加到我的项目中，但是我仍无法开始使用任何功能...

我该怎么办？我应该添加什么“使用”？

我有几个不同的类,它们是另一个类.我有一个属性扩展到所有其他类.但不同的类处理此属性的方式不同.所以我想这样做:

TClass(ObjectPointer).Property:=值;

但是TClass是未知的类型

我可以这样做吗:

ObjectPointer.ClassType(ObjectPointer).Property:=值

或这个

var
   ClassRef: TClass;
begin

   ClassRef := Sender.ClassType;
   ClassRef(ObjectPointer).DoStuff
   end;

有没有办法在delphi中执行此操作而不使用if语句

我有一个带有文件的数据表和按钮来下载所选文件.

如果文件名是带有西里尔符号,浏览器会显示"未知文件类型"示例:我有文件"асдасд.png"并且我点击下载浏览器响应

有我的下载方法

public void download(Files file) {
    try {
        FacesContext facesContext = FacesContext.getCurrentInstance();
        ExternalContext externalContext = facesContext.getExternalContext();
        externalContext.setResponseHeader("Content-Type", "application/x-download");
        externalContext.setResponseHeader("Content-Length", file.getFileContent().length+"");
        externalContext.setResponseHeader("Content-Disposition", "attachment;filename=\"" + file.getFilename() + "\"");
        externalContext.getResponseOutputStream().write(file.getFileContent());
        facesContext.responseComplete();
    } catch (IOException e1) {
        e1.printStackTrace();
    } catch (Exception e){
        e.printStackTrace();
    }
}

我很确定我需要将文件名编码为UTF-8,但我不知道如何...请帮忙.

我有2个申请.其中一个是控制台应用程序,另一个是普通的表单应用程序 - 都是用C#编写的.我想从Windows窗体应用程序打开(从视图中隐藏)控制台应用程序,并能够将命令行发送到控制台应用程序.

我怎样才能做到这一点？

我想从一个从main调用的类中访问一个主窗体变量.像这样的东西:

单元1:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit2, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
  Chiled:TChiled;
const
 Variable = 'dsadas';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Chiled.ShowMainFormVariable;
end;

end.

单元2:

unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

  type
  TChiled = class
  private
  public
    procedure ShowMainFormVariable;
  end;
var
  Form1: TForm1;
implementation

procedure TChiled.ShowMainFormVariable;
begin
  ShowMessage(Form1.Variable);
end;
end.

如果在Unit2中我添加使用Unit1弹出一个圆形错误. …

我需要使用UDP协议创建带有synapse的服务器和客户端程序.

我创建了服务器程序来收听这样的任何消息

procedure TForm1.Timer1Timer(Sender: TObject);
var
 resive:string;
begin
  InitSocket;
  resive:=UDPResiveSocket.RecvPacket(1000);
  if resive<>'' then Memo1.Lines.Add('>' + resive);

  DeInitSocket;
end;

procedure TForm1.InitSocket;
begin
  if UDPResiveSocket <> nil then
    DeInitSocket;

  UDPResiveSocket := TUDPBlockSocket.Create;
  UDPResiveSocket.CreateSocket;
  UDPResiveSocket.Bind('0.0.0.0','22401');
  UDPResiveSocket.AddMulticast('234.5.6.7');
  UDPResiveSocket.MulticastTTL := 1;
end;

procedure TForm1.DeInitSocket;
begin
  UDPResiveSocket.CloseSocket;
  UDPResiveSocket.Free;
  UDPResiveSocket := nil;
end;

所以我收到所有收到的消息.但我想从此消息的来源发送回复.

我怎样才能做到这一点？我的方法对服务器/客户端有用吗？

我试图制作我的自定义TTreeNode类

例如

TCustomTreeNode = class(TTreeNode)
  private
  public
    Comment:string;
  end;

我在树视图中创建并添加节点,如下所示:

var
  NewCustomTreeNode:TCustomTreeNode;
begin
  NewCustomTreeNode:= TCustomTreeNode.Create(TreeView.Items);
  NewCustomTreeNode.Comment:='blqblq';
  TreeView.Items.AddChild(NewCustomTreeNode,'NodeText');

当我尝试访问自定义创建的树节点时会弹出错误.例如,我喜欢这样:

TCustomTreeNode(TreeNode).Comment:='asdadssadas';

请帮助

我在Python中使用标准函数cv2.findContours找到了图像轮廓。

但正如你所看到的，中间有一个点，我无法在不破坏轮廓线的情况下过滤它。

我怎样才能删除这样的假阳性簇？轮廓之外的那些并不重要。

    gray = cv2.cvtColor(self.img, cv2.COLOR_RGB2GRAY)

    _, mask = cv2.threshold(gray, thresh=152, maxval=162, type=cv2.THRESH_BINARY)

    self.mask = cv2.bitwise_and(gray, mask)
    self.contours, hierarchy = cv2.findContours(self.mask, cv2.RETR_EXTERNAL,cv2.CHAIN_APPROX_SIMPLE)

我正在制作一款游戏,并希望立即从我的游戏服务器与所有客户交谈.(原始问题:如何制作IP列表,更新问题:如何进行UDP广播.)

我想在玩家之间建立局域网连接.现在我不明白如何找到所有连接的机器向他们发送带有服务器信息的消息.或者如何使用Synapse向所有人发送UDP？