Бинарные Данные Из Файла R5

[motogarri]

В пятерке нужно получить из файла бинарную строку. Побайтное чтение работает, но только с маленькими файлами до мегабайта. Если файл больше, то очень долго отрабатывает. Файл 2.5 мб обрабатывался минут 20. Подскажите плс есть другие способы или я что-то не так делаю?

f = Freefile
Open fileName For Binary As f

While Not Eof(f)
Get #f,, n
binData = binData + Cstr + Chr(13)
Wend

Бинарные данные нужны чтобы зашфровать внешним шифровальщиком и отправить по почте. На там конце расшифровать и снова собрать в файл.

 

[Akupaka]

а NotesStream не подойдет?

 

[lmike]

а NotesStream не подойдет?

-

Note This class is new with Release 6.

ну впринципе java доступна и в пятерке, тока нету бриджа (штатно)

 

[Akupaka]

Оу, прошу прощения, про версию я не учел.

А проблема во времени наверное из-за работы со строками: binData = binData + Cstr + Chr(13)
Если не ошибаюсь, у нотеса это очень "слабое звено".

garri , попробуй создать документ с RT-полем и загонять в него порции binData , а не в строковую переменную. Возможно это улучшит время работы.

 

[motogarri]

Ок, спасибо попробую

 

[VladSh]

Тут StringBuffer для LS надо бы использовать, - к гадалке не ходи.

 

[motogarri]

StringBuffer хорошая штука, но тут надо вообще от цикла избавиться. Пытался ADODB.Stream прикрутить - ругается на переполнение массива.

 

[ToxaRat]

может лучше массив стрингов сделать тогда не будет складывания стринга и будет быстрее

 

[motogarri]

Да фиг его знает с этими массивами все-равно файл больше 32 кб не запихнешь.

 

[ToxaRat]

лотусиный стринг ограничен 2Гб

 

[lmike]

яж сказал - есть java !!!

Добавлено:

лотусиный стринг ограничен 2Гб

не лотусиный стринг, а 32бит приложения ограничены (на нить не более 2Гб)

 

[ToxaRat]

яж сказал - есть java !!!

Добавлено: не лотусиный стринг, а 32бит приложения ограничены (на нить не более 2Гб)

не дорогой, именно лотусиный стринг

на 64битном сервере в стринг больше 2Гб тоже не вписать

 

[lmike]

на 64битном сервере в стринг больше 2Гб тоже не вписать

ты уверен что LS VM работает в 64 бит моде :huh:?
я что-то - нет

 

[motogarri]

яж сказал - есть java !!!

Да, я помню. Оставил напоследок, когда все свои виндолюбские комовские примочки исчерпаю, пойму что фигня и тогда..))

 

[motogarri]

Ниче не получается.
Решил идти в ногу со временем и перешел на шестерку))

1. Получаю Byte массив из файла buffer = stream.Read()
2. Пихаю его в CAPICOM. При этом CAPICOM из массива делает строку такого вида: �က䙊䙉Āā搀搀
3. Делаю с контетом CAPICOM разные действия (шифрую, подписываю)
4. Нужно вытащить строку из CAPICOM и собрать из нее исходный файл

В итоге чтобы на выходе получить исходный файл, нужно в поток засунуть тот же массив байтов, а у меня строка хрен знает какого вида и как из нее получить байты, да еще и не используя при этом циклы (слишком долго) фиг его знает.

Может я вообще не тем путем пошел?

 

[ToxaRat]

1. Получаю Byte массив из файла buffer = stream.Read()
2. Пихаю его в CAPICOM. При этом CAPICOM из массива делает строку такого вида: �က䙊䙉Āā搀搀

1) открывая стрим указывай КОДИРОВКУ - stream.Open(PathXML, "UTF-8")
2) Read() не юзать, а юзать sBuff = stream2.ReadText() - она хапнет сразу весь файл и быстро

 

[motogarri]

Все-таки стал делать на жаве. Скодировками запутался или еще в чем проблема.
Читаю из файла массив байтов, конвертирую в строку. В жаве строка нормальная, а в LS передается только первые 4 символа.
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Java</div></div><div class="sp-body"><div class="sp-content">

public static String ReadFile(String filePath, String charset){
InputStream is = null;
byte[] buffer = null;
String data = "";

try{
//Чтение файла в массив байтов
is = new BufferedInputStream(new FileInputStream(filePath));
buffer = new byte[is.available()];
is.read(buffer);

//Конвертация массива байтов в строку
if (buffer != null) {
if (charset == ""){
data = new String(buffer, charset);
}else{
data = new String(buffer);
}	
}

is.close();
return data;

}catch(Exception e){
System.out.println("Unsupported character set");
return data;
} 
}

data = javaObject.ReadFile("C:\Users\ens\Desktop\Test\111.jpg")
data = javaObject.ReadFile("C:\Users\ens\Desktop\Test\111.jpg", "UTF-8")

 

[lmike]

есть два момента...
- кодировка для бинарных файлов - это что-то неправильное
- можно передавать массивы простых типов (получать в variant)


Добавлено:

Ссылка скрыта от гостей

це другой случай (обшибся)
Добавлено: и что за хитрый криптограф - шо в java он не реализован?

 

[lmike]

как-то вот так...
LS:

Option Public
Option Declare
Use "utils.file"
Use "ErrorHandling"
Class LS2Jfile As ErrorHandlerWJ
Private jobj As JAVAOBJECT
Private jclass As JAVACLASS
Sub New
On Error Goto ErrH
Set jclass=jsession.GetClass({utils/file/Processing})
Set jobj=jclass.CreateObject()
Quit:
Exit Sub
ErrH:
Error 1024, RaiseError
Resume Quit
End Sub
Function ReadFile(path As String)
On Error Goto ErrH
Dim v
v=jobj.ReadFile(path)
ReadFile=v
Quit:
Exit Function
ErrH:
Error 1024, RaiseError
Resume Quit
End Function
End Class
Sub Initialize
On Error Goto ErrH
Dim binobj As New LS2Jfile
Dim v
v=binobj.ReadFile({c:\imgOn.gif})
Print "byte array Ubound:" &Cstr(Ubound(v))
Quit:
Exit Sub
ErrH:
Error 1024, RaiseError
Resume Quit
End Sub

java (либа названа utils.file):<!--shcode--><pre><code class='java'>package utils.file;
import java.io.*;
public class Processing{
public static byte[] ReadFile(String filePath){
InputStream is = null;
byte[] buffer = null;
try{
//Чтение файла в массив байтов
is = new BufferedInputStream(new FileInputStream(filePath));
buffer = new byte[is.available()];
is.read(buffer);
is.close();
return buffer;
}catch(Exception e){
e.printStackTrace();
return null;
}
}
}[/CODE]

 

[motogarri]

Микросовтовский АктивХ capicom.dll. Если не разберусь, как передать строку в LS на джаве наверное все придется делать.
Для шифрования на вход берет сроку либо байтовый массив. Строку просто шифрует, а массив преобразовывает во что-то непонятное. Чтобы после всех действий (шифрование-расшифрование) собрать исходный файл нужно получить массив, а эта штука отдает только String. Причем файлы могут быть до 100мб.

У меня так получается:
1. В java чтение из файла массива байтов, конвертация в строку и передача в LS
2. В LS шифрование, передача адресату, расшифровка, передача расшифрованной строки в java
3. В java получение из строки массива байтов (как понял это byte[] buffer = data.getBytes() и создание файла в Stream

Вот массив читается нормально, в троку пределывается тоже нормально (на как оказалось не больше 1 мб), а в LS передаются только первые 4 символа "яШяа"

Сейчас с еще одной проблемой столкнулся:

data = new String(buffer, charset);

Если byte[] buffer больше мегабайта - ошибка StackOverflowError
Это String ограничен мегабайтом?

Добавлено: lmike, вы меня опередили. Ща поразбираюсь.