Важно!!!

[cyraxchel]

Оригинал написал(а) Temofei

Так я не пойму в чем проблема в делфях или во флэше? где нужно дописывать CHR(0) ?

Надо дописывать это в делфях, когда создаешь текстовый файл.

to MoHaX: а что - сразу в обидки? =)

[Temofei]

Оригинал написал(а) Eguana
Конечно без проблема тока скажи куда туда и кинем

Если не сложно кинь плиз сюда:
ivanov_artem@mail.ru
Заранее большое спасибо!

[Eguana]

Че то ребят я потерялся тут, что я обещал кинуть ?

[Temofei]

Оригинал написал(а) Eguana
Че то ребят я потерялся тут, что я обещал кинуть ?

Исходник программы.. помнишь ты кидал вспомогательную прогу.. Флэш читает, когда файл записывается с помощью способа write..
Если тебе не трудно кинь мне текст программы? Заранее благодарю!

[Eguana]

А без проблем

я тебе его тут напишу


Var

f:Textfile;
s:string;

begin

AssignFile(f,"2.txt");
Rewrite(f);
Writeln(f,s);
CloseFile(f);

end;

//s переменная куда записываются данные из программы
в данном случае записи в файлы есть два оператора write и writeln последний с переносом строки







вот и все

[cyraxchel]

Хм... даже интересно, будет ли читать флеша из этого файла. Напишите, пожалуйста результат.

[cyraxchel]

Проверил. Все работает. =)

[Temofei]

Оригинал написал(а) Eguana
А без проблем я тебе его тут напишу

Ок, сейчас попрошу программиста что-то подобное замутить..
а потом проверю связку флэш-делфи

[Temofei]

unit Main;

interface

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

type
TMainF = class(TForm)
Timer1: TTimer;
TrackBar1: TTrackBar;
Label1: TLabel;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainF: TMainF;
f,ff:textfile;
s:string;

implementation

uses BillU;

{$R *.dfm}

procedure TMainF.FormCreate(Sender: TObject);
begin
assignfile(f,'1.txt');
assignfile(ff,'1.txt');
InitComPort();
end;

procedure TMainF.Timer1Timer(Sender: TObject);
var b:string;
begin
s:=GetStatus;
MainF.Caption:='Bill Status - '+GetStatus;
//append(f);
rewrite(f);
b:='0';
if s='Escrow 10'then b:='10';
if s='Escrow 50'then b:='50';
if s='Escrow 100'then b:='100';
if s='Escrow 500'then b:='500';
if s='Escrow 1000'then b:='1000';
write(f,b);
closefile(f);
end;

procedure TMainF.TrackBar1Change(Sender: TObject);
begin
Timer1.Interval:=Trackbar1.Position*1000;
end;

procedure TMainF.Timer2Timer(Sender: TObject);
var s:string;
begin
reset(ff);
read(ff,s);
Label1.Caption:=s;
closefile(ff);
end;

end.

В чем может быть проблема?

[Eguana]

Вы крутые парни сделали прогу по таймеру, типа если суешь денежку дельфя записывает в файл номинал купюры и передает флешу. Молодцы Молодцы Молодцы........

Ты можешь кинуть файл проекта в дельфях вместе с формой

я сделаю чтобы у тя записывался файл....

Вот тамер первый переменная B как понял должна записываться в файл да ?

procedure TMainF.Timer1Timer(Sender: TObject);
var b:string;
begin
s:=GetStatus;
MainF.Caption:='Bill Status - '+GetStatus;
//append(f);
rewrite(f);
b:='0';
if s='Escrow 10'then b:='10';
if s='Escrow 50'then b:='50';
if s='Escrow 100'then b:='100';
if s='Escrow 500'then b:='500';
if s='Escrow 1000'then b:='1000';
write(f,b); // читай ниже -------------------
closefile(f);
end

если поставишь writeln то будет переносится на другую строку

лучше конечно скинь проект на почту support@asinteger.ru я
тебе напишу прогу вечером сегодня и конечно скинь тех задание и т.д. и описание файла если что можешь найти меня по аське 169873150