[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Application.Exename

 

Условие на OS.

Снова обращаюсь за помощью...

Как поставить условие на OS?

Пример:

OnFormCreate;
begin
if sysem = Windows 7 then
autorun7.active:=true
else
autorunXP;
end;

 

Все не так просто, тут нужна функция в гугле есть вариации.

 

Дайте ссылку.

 

Ссылка (тыц сюда)

 

Не на гугл /(._.)
Я ничего не нашел там :O
Вводил: Delphi как задать условие на ОС. ;(

 

Новая сслыка (тыц сюда)

 

Подскажите как перевести DateTimeToTimeStamp(Time); в integer или string? А то необходимо отправить это дело в запросе а в таком виде не принимает. Говорит надо string

 

попробуй DateTimeToStr

 

Не подходит. Ссорь немного не так написал там DateTimeToTimeStamp(Time);

 

FloatToStr

 

Тоже не то ) ShowMessage(FloatToStr(DateTimeToTimeStamp(Time)));
Ругается There is no overloaded version of 'FloatToStr' that can be called with these arguments

 

попробуй так:
сделай переменную
a:TTimeStamp;
дальше
a:=DateTimeToTimeStamp(Time);
потом преобразуй через floattostr типа
floattostr(a.time/1000); // как пример.

 

T.time:integer;
T.date:integer;

 

Code:

formdata:=TIdMultiPartFormDataStream.Create;
formData.AddFile('files1', '1.jpg', 'image/jpeg');
formData.AddFile('files2', '', 'image/jpeg');
formData.AddFile('files3', '', 'image/jpeg');

Подскажите пожалуйста как это передать серверу на винсоках.

 

Sifon110, MimeType ставиш multipart/form-data; boundary=разделитель частей, подробней, http://ru.wikipedia.org/wiki/Multipart_form-data

 

не получаеться плавно падающее сердце..
знаю что с таймером надо работать, но оно сразу прыгает на конечную точку((

PHP:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
   fon:tbitmap;//Графический образ  Фона
   heart:tbitmap;//Графический образ  сердца
   x: integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:= False;
fon:=tbitmap.Create;//создание
heart:=tbitmap.Create;//создание
fon.LoadFromFile('fon.bmp');//Загрузить в переменную 'fon' файл  'fon.bmp'
heart.LoadFromFile('heart.bmp');
//heart.transparent:=true;//Прозрачность вокруг контура

image1.Canvas.Draw(0,0,fon);//рисуем
image1.Canvas.Draw(0,0,heart);//рисуем
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var x: integer;
begin
//x:=1;
for x:=1 to 500 do
//x:=x+shx;//текущая координата + шаг
//if x>500 then shx:=shx*-1;// ограничение справа
//if x<0 then shx:=shx*-1;//ограничение слева
image1.Canvas.Draw(0,0,fon);//возобновление фона
image1.Canvas.Draw(0,x,heart);//движение корабля
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;
end;

end.

 

od1n0chka, как я понял движение идет в цикле?
Делай тайм ауты функц. Sleep(Тайм аут в мс. 1 сек. = 1000 мс.);
Тайм ауты в цикле движения, таймер по сути не нужен.

 

да в цикле
но она не падает плавно всё равно...
а сразу переходит на конечную точку..
тайм аут поставил 1000. Не помогло

 

od1n0chka, немного по другому запишу твой код:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var x: integer;
begin
//x:=1;
for x:=1 to 500 do
  image1.Canvas.Draw(0,0,fon);//возобновление фона

// а вот твое сердце рируется один раз 
image1.Canvas.Draw(0,x,heart); //движение корабля
end; 

все таки наверное так надо:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var x: integer;
begin
//x:=1;
for x:=1 to 500 do begin
  image1.Canvas.Draw(0,0,fon);//возобновление фона
  image1.Canvas.Draw(0,x,heart); //движение корабля

end;
end;