for J := 0 to Image1.Picture.Bitmap.Height - 1 do
begin
S := '';
for I := 0 to Image1.Picture.Bitmap.Width - 1 do
if Image1.Picture.Bitmap.Canvas.Pixels[I, J] = clBlack then
S := S + Edit2.Text
else
S := S + Edit3.Text;
Memo1.Lines.Add(S);
end;
begin
S := '';
for I := 0 to Image1.Picture.Bitmap.Width - 1 do
if Image1.Picture.Bitmap.Canvas.Pixels[I, J] = clBlack then
S := S + Edit2.Text
else
S := S + Edit3.Text;
Memo1.Lines.Add(S);
end;
解决方案 »
- delphi让程序总显示在托盘里
- 1stClass4000中的TfcOutlooklist的使用
- 登入界面檢索數據失敗
- 把query中查询出的数据倒成文本文件怎么倒？？
- 思路：远程修改内网中某一台机器上的一个文件（请大家多提宝贵意见）
- 怎么知道当前机器上网的IP地址??(不是本机的局域网IP)
- 还是打开窗口的问题？
- 在INSTALLSHIELD中申明一个函数，返回STRING。为什么出错？
- 记录顺序
- 一个程序已运行了，叫project1,有两个edit,如何求得edit的输入值啊！在线等，具体大师
- ListView的背景怎么改变？要求显示的内容为透明的？
- 打印发票或者超市销售清单与一般的打印有什么区别（80分）
是否是先将此图转换成灰度图，那如何实现呢？请详解！
//取得客户端‘主机名’‘IP地址’************************************************
//==============================================================================
procedure GetClientInfo(var ClientName, IPAddress: string);
var WSAData: TWSAData;
HostEnt: PHostEnt;
begin
{no error checking...}
WSAStartup(2, WSAData);
SetLength(ClientName, 255);
Gethostname(PChar(ClientName), 255);
SetLength(ClientName, StrLen(PChar(ClientName)));
HostEnt := GetHostByName(PChar(ClientName));
with HostEnt^ do IPAddress := Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
WSACleanup;
end;