Item 0. function MyHash(AKey, AData: PAnsiChar): Pchar; stdcall; Why do you have two different roles in the declaration? PCharHuh? If one of the modules is assembled in Delphi 7, put it everywhere. PAnsiChar♪Item 1.Why is it suddenly used? ShortString?Item 2. Try answering this question - who distributes and releases the memory that you're sending back, and at what points it happens (distribution and release).You return the index to the row data, which is a local (generated) variable inside your function. Remembrance under this line is released at the time of departure. If you're lucky, and this memory piece will remain untouched, the code will be able to copy the data. Maybe not.You should distribute the buffer to the end on the side of the trigger code and give an index to the buffer and the size of the buffer to the third and fourth parameters. You must return your function to the required size of the buffer. If this buffer is less demanding, it's nothing to write.Item 3.Why are those castes dancing? s:=s+PChar(inttohex(a[i],2));?

SetLength(AByte, fpos);Setting up the mass AByte size fpos elements. Component index between 0 and fpos - 1for i:= 0 to fpos do AByte[i]:= AByte[i] xor ord(longkey[i+1]);The last cycle is used to refer to the mass element AByte with index fpos♪ There's no element with that index, and we're washing away people's memories.

The Application Name (also others) may be established as follows:AdoConnection1.Properties['Application Name'].Value := 'MyAppName';

Different encryption results for different services arise for understandable reasons. There's a code standard. http://csrc.nist.gov/publications/fips/fips197/fips-197.pdf but there may be parts of the algorithm in its implementation. Here. https://habrahabr.ru/post/212235/ Habre for implementation https://github.com/Skycker/AES as an example. If she reads the article, the author says in her report that there is a nuance with the code of the Hvost block if he's less than 16 Byte and tells me what he did. Another author of the same algorithm can do differently and process the bridge somehow, and eventually we'll get what it looks like to do, the two realizations of the same algorithm of "friend" cannot be possible. And this is only one example of such differences and the probable cause of your problem.On the other hand, I'm somewhat embarrassed by the fact that you yourself say there is. Desktop app, for people who have no access to the network.So why are you trying to work with online services if the dextop client still doesn't have access to the network?In your situation, I believe that the solution would be to use the same implementation both for the web application and for the destopus. How will that be done, the other question. And the first thing that comes to mind is a DL that will be involved both there and there (if it's technically possible to attach DL to your web application and to pull the encryption function from it). Either we take the ready application of the algorithm of encryption in one of the languages you identified (the same example in Piton is the reference above) and scrupulously, methodically text it in another language (Dalfi). Also, it seems to me that this is the way forward, there will be no guarantee of full compatibility, for example, because of differences in the implementation of the types or features of memory work.The third option could be the use of another, more "friendliness" algorithm, or the use of your own encryption mechanism, which you only know. Either the use of a different method of handling data (in general)[irony on]7z evaporated data transfer[irony off])

There's a few ways to draw a capital letter in the line. But they depend very much on what the Delphi version you use and whether you need the support of a young man.In modern versions of Delphi, just use your function. http://docwiki.embarcadero.com/Libraries/XE8/en/System.Character.TCharacter.IsUpper from youth Character: uses System.Character; ... function SplitByUpper(const AStr: string): string; var I: Integer; begin Result := ''; for I := 1 to Length(AStr) do begin if TCharacter.IsUpper(AStr[I]) and (Result <> '') then begin Result := Result + ' '; end; Result := Result + AStr[I]; end; end; The code is illustrative and can be optimized!Old Delphi can use a function. https://msdn.microsoft.com/en-us/library/windows/desktop/ms647485(v=VS.85).aspx (works with the current user log) WinApi or generate a list containing information on each symbol for a specific local on its own, with the help of https://msdn.microsoft.com/en-us/library/windows/desktop/dd318118(v=vs.85).aspx ♪ Maintaining the list will be justified if you need to use this function very intensively and you're running fast.If you need a transferable code between different versions of Delphi, you can take JCL, there's a function:function CharIsUpper(const C: Char): Boolean; begin {$IFDEF UNICODE_RTL_DATABASE} Result := TCharacter.IsUpper(C); {$ELSE ~UNICODE_RTL_DATABASE} Result := (StrCharTypes[C] and C1_UPPER) <> 0; {$ENDIF ~UNICODE_RTL_DATABASE} end; The same question in the English version of SO: https://stackoverflow.com/a/8394326/6219657

Open the file on reading and writing FileMode :=2;Remind your position in the file. Use it. FPos := Filepos(f)To edit what you need AByteBack with help. Seek(f, FPos) this position BlockWrite(f, AByte, 17);

We use WAKE_LOCKWe add a permit to the manifest. android.permission. WAKE_LOCKIn the form module of the section interface Connect the module. Androidapi.JNI.Os.pas:Uses Androidapi.JNI.Os; We're declaring a variable class to store the screen lock: TForm1 = class(TForm) ... private FWakeLock: JPowerManager_WakeLock; ... On the occasion of the form show, we call the code to lock up:procedure TForm1.FormShow(Sender: TObject); var PowerObj: JObject; PowerManager: JPowerManager; begin PowerObj := TAndroidHelper.Context.getSystemService (TJContext.JavaClass.POWER_SERVICE); if Assigned(PowerObj) then begin PowerManager := TJPowerManager.Wrap((PowerObj as ILocalObject).GetObjectID); if Assigned(PowerManager) then begin FWakeLock := PowerManager.newWakeLock (TJPowerManager.JavaClass.SCREEN_DIM_WAKE_LOCK, StringToJString('Need to screen always on')); if Assigned(FWakeLock) then begin FWakeLock.acquire; Log('Screen WAKE_LOCK is ON'); end; end; end; end; When the shape is hidden, we call the code to remove the lock:procedure TForm1.FormHide(Sender: TObject); begin if Assigned(FWakeLock) then begin FWakeLock.release; end; end; Method newWakeLock supports several levels of WAKE_LOCK:PARTIAL_WAKE_LOCK - guarantees the processor works, screens and The keyboard lighting may be switched off;FULL_WAKE_LOCK complete brightness of the screen and lighting of the keyboard (constant) deprecated Total API Level 17);SCREEN_DIM_WAKE_LOCK - screen on, but may be gray, the illumination of the keyboard may be Turn off. deprecated Total API Level 17);SCREEN_BRIGHT_WAKE_LOCK - fully bright screen, and the lighting of the keyboard may be switched off. deprecated Total API Level 13);Levels WAKE_LOCK May be combined with flags:ACQUIRE_CAUSES_WAKEUP - Turns the screen when for WAKE_LOCK method Acquire;ON_AFTER_RELEASE - - When for WAKE_LOCK method Release, the timer of the user activity shall be activated so that the screen can be activated a little longer.

TGlobalDLLData is a packed record containing two fields.PGlobalDLLData - index to the above-mentioned record.

You must have friends/nationals working in the office - ask what program would help their work.

var mp3: DWORD; IsSYNC: HSYNC; ............... begin mp3 := BASS_StreamCreateFile(False, FileName, 0, 0, 0); IsSYNC := BASS_ChannelSetSync(mp3, BASS_SYNC_END, 0, @YOUR_PROCEDURE, nil); end; where YOUR_PROCEDURE - The name of your procedure, which should be launched at the end of the melody.I'd do that. First, we create a function to launch amp3:procedure BASS_PlayFile(FileName: PChar);//передаем путь к файлу begin if Channel <> 0 then begin // Открываем файл... Channel := BASS_StreamCreateFile(False, FileName, 0, 0, 0); // Начинаем его воспроизведение BASS_ChannelPlay(Channel, False); // А вот здесь используем флаг BASS_SYNC_END и указываем на нашу процедуру // Button2click котора будет запущена по окончанию проигривания файла PlaySync := BASS_ChannelSetSync(Channel, BASS_SYNC_END, 0, @Button2click, nil); end ; end; Then we put it all on the button press:procedure TForm1.btnPlayClick(Sender: TObject); begin BASS_PlayFile('diskoteka.mp3') end; procedure TForm1.button2click(Sender: TObject); begin Showmessage('The End!-said Button2click'); end; end.

This error arises because Image1 It's not a global object, it's a class field. TForm1♪ The processor is the method of this class and sees the field, and it is inaccessible to the outside function.You can do that.function f():byte; begin Form1.Image1.Canvas.Brush.Color:=clBlack; Form1.Image1.Canvas.Rectangle(1, 1, 50, 50); end; But it is. CHEERING Not right. There is an unnecessary recourse to the global variable.Could be transferred to a class object TForm1function f(AForm: TForm1):byte; begin AForm.Image1.Canvas.Brush.Color:=clBlack; AForm.Image1.Canvas.Rectangle(1, 1, 50, 50); end; procedure TForm1.Button2Click(Sender: TObject); begin f(Self); end; But it's stupid. The same success can be achieved f by class TForm♪ I understand you want to write a function for drawing a rectangle on an arbitrary canva. Then all you have to do is give it to me as an index to the right canva.procedure f(ACanvas: TCanvas) begin ACanvas.Brush.Color:=clBlack; ACanvas.Rectangle(1, 1, 50, 50); end; procedure TForm1.Button2Click(Sender: TObject); begin f(Image1.Canvas); end; Starting with Delphi 2006, you can write a chopper for class. TCanvas and to do so f pseudonym of this classtype TCanvasHelper = class helper for TCanvas public procedure f; end; procedure TCanvasHelper.f begin Brush.Color:=clBlack; Rectangle(1, 1, 50, 50); end; procedure TForm1.Button2Click(Sender: TObject); begin Image1.Canvas.f; end;

I figured it out, thank you for your retraction. It was logical that after the window became a daughter, the hendle of the basic program needed to be used.

Problem solved, default IE.

You've stepped on standard granites that lie in front of all the poorly understood fox logic. Comments on the code:You don't need to switch the construct set deleted to remove the records. And judging by the second line of your code, you're doing it or you're doing it sometime sooner, or you've got a set deleted off, which in the paradise of the program is as strange as possible.The PACK team only works for exclusive open tables, which, again, looks very strange in any multi-user program. The team itself is designed to use an administrative/service mode where there are no other users and use it in the interactive work of the user, and there is an offensive to the said granules. By the way, if she worked, you'd be getting an empty white grease.Put the line set delete on default default in your program, remove the second and third lines from your code, transfer the pack to a separate program mode.

♪ uses Windows connected or SysUtilsI don't know exactly one of them. So check both.

Maybe?position:=Length(StrPath.Strings[j])-Length(StrFile.Strings[l]);

You can't do that. Algorithm's next.Renumber all windows using EnumWindows.For each window, getWindowThreadProcessId.Remember the suited PID.

It is likely that you have some camera brackets in the previous procedure.

Reduce beyond:TFile=class(TComponent) private FPath : String; FSize : Int64; FParent: TFile; published property Parent: TFile read FParent write FParent; property Path : String read FPath write FPath; property Size : Int64 read FSize write Fsize; end; procedure FindFiles(const DirPath: string; parent: TFile; Owner: TComponent); var SR: TSearchRec; mfile: TFile; begin if FindFirst(DirPath + '*.*', faAnyFile, SR) = 0 then try repeat if not ((SR.Name = '.') or (SR.Name = '..')) then begin mfile:=TFile.Create(Owner); mfile.Path:=DirPath+ '' + SR.Name; mfile.Size:=SR.Size; mfile.Parent:=parent;//Это новое свойство в TFile if SR.Attr = faDirectory then FindFiles(DirPath + '' + SR.Name, mfile, Owner); end; until FindNext(SR) <> 0; finally FindClose(SR); end; end; procedure TForm1.MagicButtonClick(Sender: TObject); begin FindFiles('D:',nil,Self); end; So the files turned into components. Why do you need that?

There are ways to move HDC (context), for example, but they're very complicated. Well, I suggest that we use either a component for this purpose.Tbitbtn"with Additional" or simple "TimageAnd the same deposit.