小编Som*_*one的帖子

我试图获得总CPU使用率的百分比 label1.Caption

我搜索过并找到了这些:

• 不起作用 - http://www.vbforums.com/showthread.php?345723-DELPHI-Get-CPU-Usage

• 不是我需要的 - http://delphi.cjcsoft.net/viewthread.php?tid=42837

  • 还发现了一堆关于计算每个进程的使用量的解决方案,但这不是我想要的,我只想要这个小部件的总CPU使用率:

  这就是我正在做的事情:

我相信有一种简单的方法就像我们使用RAM一样.

 GlobalMemoryStatus(RamStats);
 Label1.Caption := Format('RAM: %d %%', [RamStats.dwMemoryLoad]);

我正在使用Delphi 10.0 Seattle.

我想将请求发送到UDP服务器,然后读取服务器响应,这是一个简单的字符串:

Client side:send('12345')
server side(onread event or whatever):if received string =  ('12345') then 
send ('jhon|zack|randy')
else disconnect;

响应字符串的长度是可变的.

服务器在打开良好的网络上运行,具有开放连接(专用vps).客户端不一样,它位于路由器和安全网络(未转发)之后.

到目前为止,我只能从客户端发送请求:

(UC = idUDPclient)

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  if uc.Connected =False then
    Uc.Connect;
  uc.Send('12345');
  uc.ReceiveTimeout := 2000;
  s:=uc.ReceiveString() ;
  ShowMessage(s);
  uc.Disconnect
end;

服务器端(us = idUDPserver)

procedure TForm1.usUDPRead(AThread:TIdUDPListenerThread;const AData: TIdBytes;ABinding: TIdSocketHandle);
begin
  ShowMessage(us.ReceiveString());

  if us.ReceiveString() = '12345' then
  begin
    ShowMessage(us.ReceiveString());

    //respond with a string to the client immediately (behind a routers) how ?
  end;

我不知道TCP是否更好,以及如何使用它.

Android将参与其中.

我正在研究一个程序,我需要通过http将'log.txt'上传到网络服务器

我搜索并得到了这个: -

德尔福XE:

procedure TForm1.Button1Click(Sender: TObject);
begin
idhttp1.Post('http://127.0.0.1/GET2.php', 'C:\Users\Someone\Desktop\log.txt')
end;

php: -

<?php
$uploaddir = "uploads/";
$uploadfile = $uploaddir . basename( $_FILES['file']['name']);

if(move_uploaded_file($_FILES['file']['tmp_name'], $uploadfile))
{
  echo "The file has been uploaded successfully";
}
else
{
  echo "There was an error uploading the file";
}
?>

但没有上传文件

谢谢你的帮助