Hogyan lehet lekerdezni az IP cimet Delphiben?
-
#225
képre rajzoláskor hozzáférési hibát ad erre:
Image2.Picture := TPicture.Create;
Image2.Picture.Bitmap := TBitmap.Create;
Image2.Picture.Bitmap.Width := Image1.Width;
Image2.Picture.Bitmap.Height := Image1.Height;
showmessage('sss');
if Image2.Height<3 then showmessage('sss');
for i:=0 to Image2.Width-2 do
for j:=0 to Image2.Height-2 do
begin
Image2.Picture.Bitmap.Canvas.Pixels[i,j]:=clYellow;
// Edit1.Text:=IntTostr(i)+' x y '+IntTostr(j);;
// Edit1.Refresh;
end;
erre pedig lefut, pedig csak a koordináták kiiratása a különbség..:
[courier]
Image2.Picture := TPicture.Create;
Image2.Picture.Bitmap := TBitmap.Create;
Image2.Picture.Bitmap.Width := Image1.Width;
Image2.Picture.Bitmap.Height := Image1.Height;
showmessage('sss');
if Image2.Height<3 then showmessage('sss');
for i:=0 to Image2.Width-2 do
for j:=0 to Image2.Height-2 do
begin
Image2.Picture.Bitmap.Canvas.Pixels[i,j]:=clYellow;
Edit1.Text:=IntTostr(i)+' x y '+IntTostr(j);
Edit1.Refresh;
end;