Важно!!!
 

Все знают, как можно загрузить данные из текстового
файла, НО!!!!! Есть одна очень деликатная проблема..
Лично я столкнулся с ней.. когда я создаю текстовый файл
ручками и пишу в нем 1234, флэш читает и выводит в
текстовом поле 1234, когда я генерирую файл программно
из делфевой программы, то флэш выводит в текстовом
файле NAN.. хотя файлы одинаковые.. один в один.. и размер
и параметры.. Может кто-нибудь встречался с подобной проблемой?
Помогите плиз..

Там ботва с пробеломи, или с переносом на другую стоку, возможно, или что-то такого плана...
Давно было...

флэш unicod только нормально кушает, может поэтому...

хотя нет, извини, ступил.

Дело в чем-то другом!
 

Не знаю в чем там дело, руками делаю - всё работает, когда прога делает - ничего не работает :(
Дело не в пробелах, потому что у меня флэш пробелы читает..

А ты чем файл руками создаешь? блокнотом или как

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

Ты с помощью чего файл генеришь?
В моем случае Delphi. И программер на Делфи быстро просек, в чем дело и поправил это...

Руками создаю файл в блокноте.. Но прога создает такой
же файл.. и по размеру и по содержанию..

Ты знаешь, в моем случае - это тоже делфи.. Но я делфи
не знаю.. мне друг прогу писал.. Может ты кинешь какой-
нибудь пример или код для правильной генерации? Иначе
я сам программисту ничего не смогу объяснить..
Трасировка файла с пропущенной строкой должна
выглядеть так?
"
1234"
?

Как я уже говарил это было давно, и я ничего конкретно не помню!
Помню только что при зацикленном трейсе полусалось:
1

1

1

1
вместо:
1
1
1
1

Это и есть проблемма. и ее нужно решить в Делфи, суть в том что Делфи делает что-то вроде сноса строки, а это какрас совсем лишни...
и испровлял это ни я. и дальше я помочь не могу...

Смотря какк записывать, если методом write в Delphi то у него наверное не должно работать, щас наваю прогу в зип заложу
проверете

Выкладываю прогу , там две кнопки Save и Write одна методом как в блокноте вторая методом как в досе

Создавай два файла 1.txt и 2.txt . Если поможет то пиши может прогу твою перепишем

http://www.asinteger.ru/save.exe

Файл 135 килов весит не влизает так что бери оттуда

Огромное спасибо! Я смогу проверить твой пример дома.. Сейчас я далеко от дома.. В пятницу я проверю все, еще
раз спасибо.. !

Проверил, у меня почему-то ни так, ни так не запустилось..
Я постараюсь вечером выложить исходник, может код посмотрите.. может я чего не так делаю.. :(

Ты же говоришь что когда создаешь файл в блокноте то у тя все пашет , прога создает файл как блокнот, и другим методом

должен тогда пахать первый метод, выкладывай исходник посмотрим

Прикол может быть с окончанием строки в файле. Насколько я помню, надо к строке в конце дописывать символ CHR(0) - нулевой символ. Это дело обсуждалось в уроке по Флешу: "Создание сетевых игр и серьезных программ на флэше: XMLSocket и Delphi". Так что пробуйте и ищите. ;)

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

А что ты меня цетируешь!
я то это решил...

Сегодня попробовал еще раз, на чистом проекте, работает метод 2, write.. :) Скажи, а этот метод легко реализуется в делфях? Можешь кинуть кусочек кода?
С помощью связки флэш-делфи можно сделать прогу для опроса билацептора (купюромприемника).. Таким образом, анимированные флэш-программы получат новое применение! Мы на грани открытия :)))

Он говорит что когда файл создает в блокноте то все работает, а так да надо быпрописать во флеше CHR

Конечно без проблема тока скажи куда туда и кинем

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

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

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

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

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

А без проблем

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


Var

f:Textfile;
s:string;

begin

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

end;

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







вот и все

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

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

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

А вот из этого почему-то не читает :(
 

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.

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

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

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

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

Вот тамер первый переменная 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