Czy widzicie jakieś zagrożenie w takiej konwersji:
{ w array bajty małej ikony 256 bajtów chodzi o plik językowy więc jest to flaga przełączająca język. W pozostałych wierszach bazy umieszczone są komunikaty i opisy itd..dlatego stringi. }
// pętla:
S:=s+chr(array[x]);{ zapisanie ikony w wierszu prostej bazy
I odwrócenie przez:}
//Pętla:
Array[x]:=s[x];{ odtworzenie pliku ikony w katalogu, czuję coś nosem że kodowanie znaków może coś mi przekręcić…}
@Windowbee:
domyślam się masz na myśli jakiś dwukierunkowy sposób konwersji danych binarnych na stringa ??
@grzegorz_so:
Tak dokładnie pominąłem całe dwie funkcje kodu bo po co zaśmiecać … w nawiasach podałem opis, widocznie nie dość zrozumiale.
Nie wiem w jaki sposób bardziej skrótowy napisać że planuję przenieść bajty z pliku ico do znaków w stringu.
Pokazałem tylko pojedynczy krok w pętli plik—> string
I odwrotnie string —> plik
Nie pokazywałem już przecież przenoszenia tablicy bajtów do pliku ani z pliku do array.
Pisanie całej funkcji zaśmieci ekran. Więc uznałem że wrzucę skrót myślowy.
Wiem jak to zrobić nie znam tylko zasad kodowania znaków , czy nie wystąpi wyjątek że bajtowi nie odpowiada znak albo jest specjalny i też będzie problem.
Ten string ma
Przenosić informację tylko, nie będzie wyświetlany.
Mam proste bazy danych o podobnym schemacie jak pliki csv(wiersze stringów, komórki oddzielone separatorem) i w jednym miejscu chcę umieszczać ikonę, żeby jako string na zapytanie klienta przesłać ją przez port.
Żeby bałaganu nie było nie chcę tworzyć dodatkowych ikon w katalogu wersji językowych.
Lazarus function getBytesFromFileAsAnsistring(aFilename: string): ansistring;
var
ms: TMemorystream;
begin
result:='';
ms := TMemorystream.Create;
try
ms.LoadFromFile(aFilename);
setlength(result, ms.Size);
ms.Read(result[1], ms.Size);
finally
ms.free;
end;
end;
to jeden z wielu sposobów na rozwiązanie Twojego problemu
Otwierasz połączenie jako strumień, przeważnie w IOHandler, otwierasz plik i jednym poleceniem:
https://docwiki.embarcadero.com/RADStudio/Sydney/en/Copying_Data_From_One_Stream_To_Another
Dla umieszczenia w pliku tekstowym:
EncodeBase64
DecodeBase64
działające wprost na strumieniu.
Witam.
procedure TForm6.Button2Click(Sender: TObject);
var FStream : TStream;
var txt : String;
var MStream: TMemoryStream;
function MemoryStreamToString(M: TMemoryStream): AnsiString;
begin
SetString(Result, PAnsiChar(M.Memory), M.Size);
end;
begin
MStream := TMemoryStream.Create;
FStream := TFileStream.Create('mail.ico', fmOpenRead);
try
MStream.CopyFrom( FStream, FStream.Size );
txt := string(MemoryStreamToString( MStream ));
finally
FStream.Free;
MStream.Free;
end;
end;
@Windowbee, w zmiennej txt masz ikonę
@dasej: skoro używasz strumieni, to dlaczego nie TStringStream? ;)
var
Stream: TStringStream;
begin
Stream := TStringStream.Create();
try
Stream.LoadFromFile('mail.ico');
// "Stream.DataString" zwraca ciąg znaków.
finally
Stream.Free();
end;
end;
Tyle tylko, że taki ciąg znaków będzie zawierał dokładnie to co plik ikony, czyli najróżniejsze znaki, w tym te kontrolne, nulle i inne badziewie. IMO lepszym rozwiązaniem będzie sugerowany wcześniej Base64, bo to przynajmniej będzie jak ciąg znaków wyglądało.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.
"Tak, zagrożenie bezmyślnego stukania w klawiaturę, bezmyślnego zadawania pytań, bezmyślnego trollowania.". Nie każdy ma taką wiedzę o programowaniu jak Twoja , ale to nie daje Ci prawa aby użyć takich słów. Forum jest dla wszystkich !!!