ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Имя устройства: Минипорт WAN (PPTP)
Тип устройства:VPN
Тип сервера:PPP
Транспорты:TCP/IP
Проверка подлинности:MD5 CHAP
Сжатиенет)
Формирование пакетов Многоканального PPP:Выкл

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
WB:_WorkBook;
WS:_WorkSheet;
PC:PivotCache;
PT:PivotTable;
i:byte;
a,b:extended;
XLApp, XLWb, XlSheet, XLPic: OleVariant;

begin
ExcelApplication1.Connect;
ExcelApplication1.Interactive[LCID]:=False;
ExcelApplication1.Visible[LCID]:=True;//ñäåëàëè åãî âèäèìûì
WB:=ExcelApplication1.Workbooks.Add(emptyparam,LCI D);
WS:=(ExcelApplication1.ActiveSheet as _WorkSheet);
ExcelApplication1.EnableEvents:=False;
WS.Range['A1',emptyparam].Value2:='Результаты счёта';
WS.Range['A1',emptyparam].Font.Size:=12;
WS.Range['A1',emptyparam].Font.Bold:=True;
WS.Range['A1',emptyparam].Font.Italic:=True;
WS.Range['A1',emptyparam].Font.Underline:=xlUnderlineStyleSingle;

WS.Range['A2',emptyparam].Value2:='I';
WS.Range['A2',emptyparam].Font.Bold:=True;
WS.Range['B2',emptyparam].Value2:='Y';
WS.Range['b2',emptyparam].Font.Bold:=True;
WS.Range['C2',emptyparam].Value2:='X';
WS.Range['c2',emptyparam].Font.Bold:=True;

for i:=3 to StringGrid1.RowCount do
begin
a:=Strtofloat(StringGrid1.Cells[1,i-2]);
b:= Strtofloat(StringGrid1.Cells[2,i-2]);
WS.Range['A'+InttoStr(i),emptyparam].Value2:=Inttostr(i-2);
WS.Range['B'+InttoStr(i),emptyparam].Value2:=FloattostrF(a,fffixed,3,2);
WS.Range['C'+InttoStr(i),emptyparam].Value2:=FloattostrF(b,fffixed,3,2);;
end;

Chart1.SaveToBitmapFile('foto.bmp');
Image1.Picture.LoadFromFile('foto.bmp');
Clipboard.Assign(Image1.Picture);

{вставить хочу картинку (foto.bmp) в определённую ячейку, как сделать??}

ExcelApplication1.EnableEvents:=True;
ExcelApplication1.Interactive[LCID]:=True;
ExcelApplication1.Disconnect;
end;